fact: Definition dep_square {Γ : Tel} (Δ : Γ -> Tel) u v (e : u =={Γ} v) (a b : forall ρ, Δ ρ) (eqΔ := λ ρ, a ρ =={Δ ρ} b ρ) (r : eqΔ u) (s : eqΔ v) := (subst (fun y => telescope (b u =={Δ;e} y)) s (subst (fun y => telescope (y =={Δ;e} a v)) r (dcong_tel a e)) =={b u =={Δ;e} b v} (dcong_tel b e)).
imports: Equations Utf8 DepElimDec EqDecInstances