At:
sublist weakening wrt identity111111
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.
L: T List
9.
M: T List
10.
L = M
11.
u: T
12.
v: T List
if eq(u,u) true else u(eq) v fi
By:
Witness5 u
THEN
FwdThru
Thm*P:. P P = true
[-1]
Generated subgoal:
5. x,y:T. eq(x,y) eq(y,x) 6. x,y,z:T. eq(x,y) eq(y,z) eq(x,z) 7. L: T List 8. M: T List 9. L = M 10. u: T 11. v: T List 12. eq(u,u) 13. eq(u,u) = true if eq(u,u) true else u(eq) v fi