A,B:Type, a:EqDecider(A), b:EqDecider(B).
  prod-deq(A;B;a;b)  (p,q:(AB). p = q  proddeq(a;b)(p,q))

By:	Auto THEN Inst Thm* A,B:Type{i}, a:EqDecider(A), b:EqDecider(B). Thm* prod-deq-aux{\\\\v:l,i:l}(A;B;a;b) Thm*  (p,q:(AB). p = q  proddeq(a;b)(p,q)) [A;B;a;b] THEN NthHypSq -1 THEN Analyze THEN Try Trivial

1

1. A : Type{i} 2. B : Type{i} 3. a : EqDecider(A) 4. b : EqDecider(B) 5. prod-deq-aux{\\\\v:l,i:l}(A;B;a;b)  (p,q:(AB). p = q  proddeq(a;b)(p,q))   prod-deq(A;B;a;b) ~ prod-deq-aux{\\\\v:l,i:l}(A;B;a;b)

2 steps

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