fact: Example C87 : chain := fun A (x : A)=> x2 <--- x times x ; x3 <--- x2 times x ; x6 <--- x3 times x3 ; x7 <--- x6 times x ; x10 <--- x7 times x3 ; x20 <--- x10 times x10 ; x40 <--- x20 times x20 ; x80 <--- x40 times x40 ; x87 <--- x80 times x7 ; Return x87.
imports: Coq(Relations RelationClasses Lia List) Param(Param) additions(More_on_positive)