IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
coprime elim a,b:. CoPrime(a,b) (c:. c | ac | b (c ~ 1))
By:
(RepUnfolds [`coprime`;`gcd_p`;`assoced`] 0) THEN GenRepD
THEN
(Try (BackThru Thm*a:. 1 | a))