Commit 158af05a by Jean-Christophe Filliâtre

### debuggage typage

parent 4cebacb3
 theory Test type 'a t type u = t end
 theory Test type 'a t type u = (int, int) t end
 theory Test logic c : int logic c : int end
 theory Test type t = t end
 theory Test type t = u type u = t end
 theory Test type ('a, 'a) t end
 theory Test type 'a t = 'b end
 ... ... @@ -99,6 +99,34 @@ theory Array end theory Set type 'a t logic mem ('a, 'a t) logic empty : 'a t axiom Empty_def1 : forall x : 'a. not mem(x, empty) logic add ('a, 'a t) : 'a t axiom Add_def1 : forall x, y : 'a. forall s : 'a t. mem(x, add(y, s)) <-> (x = y or mem(x, s)) logic union('a t, 'a t) : 'a t axiom Union_def1 : forall s1, s2 : 'a t. forall x : 'a. mem(x, union(s1, s2)) <-> (mem(x, s1) or mem(x, s2)) logic equal(s1 : 'a t, s2 : 'a t) = forall x : 'a. mem(x, s1) <-> mem(x, s2) end (* Local Variables: compile-command: "make -C ../.. test" ... ...
 theory Set type 'a t logic mem ('a , 'a t) logic empty : 'a t axiom empty_def1 : forall x:'a. not mem(x, empty) logic add ('a, 'a t) : 'a t axiom add_def1 : forall x,y:'a. forall s:'a t. mem(x, add(y, s)) <-> (x = y or mem(x, s)) end theory Set_list use open List logic add(x:'a,s:'a t) : 'a t = Cons(x,s) ... ...