At:
append functionality wrt list iso
1
1
1
1.
T: Type
2.
L1: T List
3.
L2: T List
4.
eq: {T
}
5.
eq
T
T

6.
x:T. eq(x,x)
7.
x,y:T. eq(x,y) 
eq(y,x)
8.
x,y,z:T. eq(x,y) 
eq(y,z) 
eq(x,z)
9.
L3: T List
10.
L4: T List
11.
Discrete{T}
12.
L1(
eq)L2
13.
L2(
eq)L1
14.
L3(
eq)L4
15.
L4(
eq)L3
(L1 @ L3)(
eq)(L2 @ L4)
By:
Using [`eq1',eq;`eq2',eq]
(BackThru
Thm*
L1,L2:T List, eq1,eq2,eq3:{T
}, L3,L4:T List. Discrete{T} 
eq1 = eq2 
eq2 = eq3 
L1(
eq1)L2 
L3(
eq2)L4 
(L1 @ L3)(
eq3)(L2 @ L4))
Generated subgoals:
None
About: