fact: Fixpoint bin_pow_scheme {A} (p:positive) : A -> @computation A:= match p with | xH => fun x => Return x | xI q => fun x => x2 <--- x times x; axp_scheme q x x2 | xO q => fun x => x2 <--- x times x ; bin_pow_scheme q x2 end.
imports: Coq(Relations RelationClasses Lia List) Param(Param) additions(More_on_positive)