1. 'a : S
2. 'b : S
3. x : hprod('a; 'b)
4. x@0 : 'a
5. y : 'b
6. (a:'a. b:'b. (a = x@0)(b = y))
6. =
6. (a:'a. b:'b. (a = 1of(x))(b = 2of(x)))
  1of(x) = x@0

By:	((Last (EquandMap (f.f(x@0,y)) )) THEN (Analyze 3)) THEN Simp THEN StrongAuto

None

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