1. A : Type
2. Q : Sexpr(A)Prop
3. s:{s:Sexpr(A)| Q(s) }. Size(s)  1  Size(sexprCar(s))<Size(s)
4. s : ({s:Sexpr(A)| Q(s) }{s:Sexpr(A)| Q(s) })+A
  Size(s)  1  Size(sexprCar(s))<Size(s)

By:	Analyze-1 THENL [Analyze-1;Id] THEN Try Def of Cons(<sexpr>;<sexpr>) | Inj(<sexpr atom>)

1	4. x1 : {s:Sexpr(A)| Q(s) } 5. x2 : {s:Sexpr(A)| Q(s) } 6. Size(Cons(x1;x2))  1   Size(sexprCar(Cons(x1;x2)))<Size(Cons(x1;x2))	1 step
2	4. y : A 5. Size(Inj(y))  1   Size(sexprCar(Inj(y)))<Size(Inj(y))	1 step

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