At:
not disjoint is member lemma11121
1.
T: Type
2.
eq: {T=}
3.
eq TT
4.
x,y:T. eq(x,y) x = y
5.
L: T List
6.
u: T
7.
v: T List
8.
M:T List. disjoint(eq;v;M) (x:T. x(eq) v & x(eq) M)
9.
M: T List
(u(eq) M & disjoint(eq;v;M)) (x:T. if eq(x,u) true else x(eq) v fi & x(eq) M)
By:
Analyze 0
Generated subgoal: