Slightly format some code

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2024-04-12 23:22:31 -07:00
parent da2f7f51d7
commit 57606636a7

View File

@ -269,7 +269,9 @@ module Graphs where
; nsg₂≡nsg₁++newNodes = cast-sym _ (++-identityʳ (+-comm s 0) ns)
; e∈g₁⇒e∈g₂ = λ {e} e∈es
cast∈⇒∈subst (+-comm s 0) (+-comm 0 s) _ _
(subst (λ e' e' ∈ˡ _) (↑ˡ-Edge-identityʳ e (+-comm s 0)) (∈ˡ-++⁺ʳ es' e∈es))
(subst (λ e' e' ∈ˡ _)
(↑ˡ-Edge-identityʳ e (+-comm s 0))
(∈ˡ-++⁺ʳ es' e∈es))
}
)