fact: Fixpoint F2q_of_nat q := match q with | 0%nat => nil | S p => SQR:: F2q_of_nat p end.
imports: Coq(List PArith Relations Lia) additions(Monoid_def Monoid_instances Strategies) Coq(Recdef Wf_nat) additions(More_on_positive Pow Euclidean_Chains Dichotomy BinaryStrat)