At:
sublist iff assert sublist 2 x1212
1.
T: Type
2.
L: T List
3.
M: T List
4.
eq: {T=}
5.
eq TT
6.
x,y:T. eq(x,y) x = y
7.
u: T
8.
v: T List
9.
(u(eq) Mxv.x(eq) M) u(eq) M & xv.x(eq) M
10.
u(eq) Mxv.x(eq) M
u(eq) M & v(eq)M
By:
RWH
(LemmaC
Thm*p,q:. (pq) p & q)
-1
THEN
OnHyps [-1;0] Analyze
Generated subgoals: