fact: Definition lifted_solution_lhs_type (Γ : Tel) (u v : Γ) (Δ : Γ -> Tel) (a b : forall ρ, Δ ρ) (eqΔ := λ ρ, a ρ =={Δ ρ} b ρ) (r : eqΔ u) (s : eqΔ v) := tele (e : u =={Γ} v) in let lhs := dcong_tel a e in let rhs := dcong_tel b e in square (cong (subst Δ e) _ _ r) (inv_equiv (eq_points_equiv (Δ v) (a v) (b v)) s) (inv_equiv (eq_points_equiv _ _ _) lhs) (inv_equiv (eq_points_equiv _ _ _) rhs).
imports: Equations DepElimDec EqDecInstances Utf8