Nuprl - Proof: prod-deq wf 1 1

IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At: prod-deq wf 1 1

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

(

p,q:(A

B). p = q

proddeq(a;b)(p,q))

prod-deq(A;B;a;b) ~ (ext{proddeq_DASH_property}{i:l}(A,B,a,b))

By:	RW (SweepDnC AnyExtractC) 0 THEN Unfold `prod-deq` 0 THEN Trivial

Generated subgoals:

None

About:

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