1. 'a : S
2. 'b : S
3. x1 : 'a
4. x : 'a
5. (u:'a+'b. InjCase(u
5. (u:'a+'b. InjCase; p. b:. x:'a. y:'b. (x = p)b
5. (u:'a+'b. InjCase; q. b:. x:'a. y:'b. (y = q)b))
5. (inl(x1))
5. =
5. (u:'a+'b. InjCase(u
5. (u:'a+'b. InjCase; p. b:. x:'a. y:'b. (x = p)b
5. (u:'a+'b. InjCase; q. b:. x:'a. y:'b. (y = q)b))
5. (inl(x))
  inl(x1) = inl(x)  'a+'b

By:	((EquandMap (f.f(true,x1,arb('b)))  5) THEN (Thin 5) THEN Simp) THEN StrongAuto THEN Try (Complete (Unfold `label` 0))

1

5. x1 = x   inl(x1) = inl(x)  'a+'b

1 step

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