fact: Definition tl {A : Type'} (l : list A) := match l with | nil => @TL A nil | cons h t => @tl A (cons h t) end.
imports: Coq.Logic.ClassicalEpsilon ClassicalFacts PropExtensionalityFacts Lia PeanoNat ProofIrrelevance ExtensionalityFacts List