(* test file *)

theory ThA
  type test
  logic test (test : test) : test
  goal Test : forall test : test . forall test : test . test(test) <> test
end

theory Test
  use import prelude.Int
  logic id(x: int) : int = x
  logic id2(x: int) : int = id(x)
  logic succ(x:int) : int = id(x+1)
  logic even(x: int) = 2*(x/2) = x
  goal G : forall x:int. 1 = succ(id2(zero))
  goal G2 : forall x:int. 0 = 1
end

(*
Local Variables: 
compile-command: "make -C .. test"
End: 
*)