fact: Definition theorem_square {Γ : Tel} (Δ : Γ -> Tel) u v (e : u =={Γ} v) (a b : forall ρ, Δ ρ) (r : a u =={Δ u} b u) (s : a v =={Δ v} b v) := square_tel (dcong_tel a e) (dcong_tel b e) (cong_tel (subst (λ ρ : Γ, Δ ρ) e) _ _ r) s.
imports: Equations DepElimDec EqDecInstances Utf8