fact: Definition duplicate_type (ls : list (sigT eP)) : list (sigT eP2) := List.map (fun v => existT eP2 (projT1 v, projT1 v) (projT2 v)) ls.
imports: Coq.Lists.List Coq.Arith.EqNat Coq.Logic.Eqdep_dec Fiat.Parsers.Reflective.Syntax Fiat.Parsers.Reflective.SyntaxEquality Fiat.Parsers.Reflective.SyntaxEquivalence Fiat.Common.PointedProp Fiat.Common.OptionFacts Fiat.Common.Prod Fiat.Common.Sigma Fiat.Common