fact: Fixpoint eq@{i} (Δ : Tel@{i}) : forall (t s : Δ), Tel@{i} := match Δ return forall t s : Δ, Tel@{i} with | inj A => fun a b => inj@{i} (a = b) | ext A f => fun a b => ext (a.1 = b.1) (fun e => eq (f b.1) (rew e in a.2) b.2) end.
imports: Equations Utf8 DepElimDec