fact: Fixpoint gcd_gt (p:positive) (cont:t->t->t) (a b:t) {struct p} : t := gcd_gt_body a b (fun a b => match p with | xH => cont a b | xO p => gcd_gt p (gcd_gt p cont) a b | xI p => gcd_gt p (gcd_gt p cont) a b end).
imports: ZArith Basic_type ZnZ Zn2Z Nbasic GenMul GenDivn1