fact: Definition correctness_statement (s: signature) : code -> Prop := match s with | gen_F p => fun c => Fchain_correct p c | gen_K p d => fun c => Kchain_correct (p + d) p c 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) Coq(NArith)