fact: Fixpoint eq_eq_equiv@{i} (Δ : Tel@{i}) : forall (u v : Δ) (e : u = v), u == v := match Δ as Δ return forall (u v : Δ) (e : u = v), u == v with | inj A => fun a b e => e | ext A f => fun u v e => let p := equiv_inv@{i} (IsEquiv:=path_sigma_equiv _ u v) e in &(p.1 & eq_eq_equiv _ _ _ p.2) end.
imports: Equations Utf8 DepElimDec