fact: Definition FCONS {A : Type'} (a : A) (f: nat -> A) (n : nat) : A := match n with | 0 => a | S n => f n end.
imports: Coq.Logic.ClassicalEpsilon ClassicalFacts PropExtensionalityFacts Lia PeanoNat ProofIrrelevance