At:
sublist transitivity111111111121111121112112
1.
T: Type
2.
Discrete{T}
3.
eq: {T}
4.
eq TT
5.
x:T. eq(x,x)
6.
x,y:T. eq(x,y) eq(y,x)
7.
x,y,z:T. eq(x,y) eq(y,z) eq(x,z)
8.
L1: T List
9.
L2: T List
10.
L3: T List
11.
f: {T=}
12.
f TT
13.
x,y:T. f(x,y) x = y
14.
z: T
15.
z(f) L1
16.
u: T
17.
v: T List
18.
eq(z,u) = true
19.
True
20.
f(u,u)
21.
f(u,u) = true
22.
u1: T
23.
v1: T List
24.
u(eq) v1 z(eq) v1
25.
eq(z,u)
26.
eq(u,u1) = false
if false true else u(eq) v1 fi if eq(z,u1) true else z(eq) v1 fi
By:
GenConcl (eq(z,u1) = b)
THEN
BoolInd -2
THEN
Rewrite (HigherC ifthenelse_evalC THENC TryC (HigherC assert_evalC)) 0
Generated subgoals: