fact: Fixpoint guarded (n: nat) (Wf: well_founded P) : well_founded P := if n is m.+1 then fun x => @Acc_intro _ _ x (fun y _ => guarded m (guarded m Wf) y) else Wf.
imports: HB(structures) Coq(ssreflect ssrfun ssrbool Arith.Wf_nat) mathcomp(eqtype ssrnat div seq path) mathcomp(ssralg fintype perm tuple choice generic_quotient) mathcomp(matrix bigop zmodp mxalgebra poly) stronglydiscrete