fact: Fixpoint TelAppend {av} (t1 t2: Telescope av) := match t1 with | Nil => t2 | Cons T key val tail => Cons (T := T) key val (fun v => TelAppend (tail v) t2) end.
imports: CertifiedExtraction.Core CertifiedExtraction.FacadeNotations CertifiedExtraction.PropertiesOfTelescopes CertifiedExtraction.ExtendedPropertiesOfTelescopes CertifiedExtraction.ExtendedLemmas