fact: Definition factN := Y (fun (fact : N -> N) (x : N) => match x with | N0 => 1%N | Npos n => (Npos n * fact (Pos.pred_N n))%N end).
imports: Equations(Equations) ZArith Lia Program Psatz Nat Coq.Vectors.VectorDef Relations