Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save DreamLinuxer/1d3bf749d15b04498ef3b80e7bdf2d53 to your computer and use it in GitHub Desktop.
Save DreamLinuxer/1d3bf749d15b04498ef3b80e7bdf2d53 to your computer and use it in GitHub Desktop.
⟪ ⇒ ∣
(uniti₊l ⊚ swap₊) ⊚
(id↔ ⊕ η) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ 𝔽 ⟧⟫
⟪ ⇒ ∣
(id↔ ⊚ swap₊) ⊚
(id↔ ⊕ η) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ 𝔽 ⟧⟫
⟪ ⇒ ∣
swap₊ ⊚
(id↔ ⊕ η) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ 𝔽 ⟧⟫
⟪ ⇒ ∣
id↔ ⊚
(id↔ ⊕ η) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ 𝔽 ⟧⟫
⟪ ⇒ ∣
(id↔ ⊕ η) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ 𝔽 ⟧⟫
⟪ ⇒ ∣
(id↔ ⊕ id↔) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ 𝔽 ⟧⟫
⟪ ⇒ ∣
id↔ ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ 𝔽 ⟧⟫
⟪ ⇒ ∣
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₁ 𝔽 ⟧⟫
⟪ ⇒ ∣ (id↔ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣ ((swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₁ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣ ((id↔ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₁ (inj₂ 𝔽) ⟧⟫
⟪ ⇒ ∣ (id↔ ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ (inj₂ 𝔽)
⟧⟫
⟪ ⇒ ∣ assocr₊ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ (inj₂ 𝔽) ⟧⟫ ∷
⟪ ⇒ ∣ id↔ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (inj₁ 𝔽) ⟧⟫ ∷
⟪ ⇒ ∣ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (inj₁ 𝔽) ⟧⟫ ∷
⟪ ⇐ ∣ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (inj₂ (- 𝔽)) ⟧⟫ ∷
⟪ ⇐ ∣ id↔ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (inj₂ (- 𝔽)) ⟧⟫ ∷
⟪ ⇐ ∣ assocr₊ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (- 𝔽) ⟧⟫ ∷
⟪ ⇐ ∣ (id↔ ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₂ (- 𝔽) ⟧⟫
⟪ ⇐ ∣ ((id↔ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₂ (- 𝔽) ⟧⟫
⟪ ⇐ ∣ ((swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₂ (- 𝔽) ⟧⟫
⟪ ⇐ ∣ (id↔ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ (- 𝔽) ⟧⟫
⟪ ⇐ ∣
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₂ (inj₂ (- 𝔽)) ⟧⟫
⟪ ⇐ ∣
id↔ ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ (inj₂ (- 𝔽)) ⟧⟫
⟪ ⇐ ∣
(id↔ ⊕ id↔) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ (inj₂ (- 𝔽)) ⟧⟫
⟪ ⇒ ∣
(id↔ ⊕ id↔) ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣
id↔ ⊚
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₂ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣
(assocl₊ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₂ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣ (id↔ ⊚ (swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l
⟦ inj₁ (inj₂ 𝔽) ⟧⟫
⟪ ⇒ ∣ ((swap₊ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₁ (inj₂ 𝔽) ⟧⟫
⟪ ⇒ ∣ ((id↔ ⊕ id↔) ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦
inj₁ (inj₁ 𝔽) ⟧⟫
⟪ ⇒ ∣ (id↔ ⊚ assocr₊) ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ (inj₁ 𝔽)
⟧⟫
⟪ ⇒ ∣ assocr₊ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ (inj₁ 𝔽) ⟧⟫ ∷
⟪ ⇒ ∣ id↔ ⊚ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ (id↔ ⊕ ε) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ (id↔ ⊕ id↔) ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ id↔ ⊚ swap₊ ⊚ unite₊l ⟦ inj₁ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ swap₊ ⊚ unite₊l ⟦ inj₁ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ id↔ ⊚ unite₊l ⟦ inj₂ 𝔽 ⟧⟫ ∷
⟪ ⇒ ∣ unite₊l ⟦ inj₂ 𝔽 ⟧⟫ ∷ ⟪ ⇒ ∣ id↔ ⟦ 𝔽 ⟧⟫ ∷ []
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment