Nuprl - Proof: swap adjacent instance 2 2 1 2 1 1 1 1

IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: swap adjacent instance 2 2 1 2 1 1 1 1

1. A : Type
2. P : A

Prop
3. X : A List
4. Y : A List
5. a : A
6. b : A
7. P(a,b)
8. i :

9. i<||X @ [b; a / Y]||
10.

i<||X||
11. i = ||X||

[b; a / Y][(||X||-||X||)] = [a; b / Y][(||X||+1-||X||)]

By:	Subst' (\|\|X\|\|-\|\|X\|\| = 0) 0 THEN Reduce 0 THEN Subst' (\|\|X\|\|+1-\|\|X\|\| = 1) 0 THEN Reduce 0

Generated subgoals:

None

About:

IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html