At:
append commutes under sublist
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.
L: T List
9.
M: T List
10.
EQ: {T=
}
11.
EQ
T
T

12.
x,y:T. EQ(x,y) 
x = y
13.
z: T
14.
z(
EQ) (L @ M)
z(
eq) (M @ L)
By:
Using [`eq',EQ]
(BackThru
Thm*
eq:{T=
}, u:T, L:T List. u(
eq) L 
(
f:{T
}. u(
f) L))
Generated subgoal:
1 | z( EQ) (M @ L) |
About: