At:
sublist transitivity
1
1
1
1
1
1.
T: Type
2.
Discrete{T}
3.
eq: {T
}
4.
eq
T
T

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.
x
L1.x(
eq) L2
12.
x
L2.x(
eq) L3
13.
f: {T=
}
14.
f
T
T

15.
x,y:T. f(x,y) 
x = y
x
L1.x(
eq) L3
By:
Using [`eq',f]
(BackThru
Thm*
eq:{T=
}, P:(T
Prop), L:T List.
x
L.P(x) 
(
z:T. z(
eq) L 
P(z)))
Generated subgoal:
About: