IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
union functionality wrt one one corr1 1. A : Type
2. A' : Type
3. B : Type
4. B' : Type
5. f:(AA'), g:(A'A). InvFuns(A;A';f;g)
6. f:(BB'), g:(B'B). InvFuns(B;B';f;g)
f:((A+B)(A'+B')), g:((A'+B')(A+B)). InvFuns(A+B;A'+B';f;g)
By:
2 Times Analyze-2 THEN 2 Times Analyze-1
THEN
Witness:
Wiz.InjCase(z; x. inl(f(x)); y. inr(f1(y))) |
Wiz.InjCase(z; x. inl(g(x)); y. inr(g1(y)))