diff src/CCCGraph.agda @ 995:1d365952dde4

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 06 Mar 2021 23:02:33 +0900
parents 485bc7560a75
children d89f2c8cf0f4
line wrap: on
line diff
--- a/src/CCCGraph.agda	Sat Mar 06 19:11:01 2021 +0900
+++ b/src/CCCGraph.agda	Sat Mar 06 23:02:33 2021 +0900
@@ -95,6 +95,14 @@
                     Sets [ f ≈ f' ] → Sets [ f * ≈ f' * ]
                 *-cong refl = refl
 
+--             ○ b
+--       b -----------→ 1
+--       |              |
+--     m |              | ⊤
+--       ↓    char m    ↓
+--       a -----------→ Ω
+--             h
+
 data II  {c : Level } : Set c where
      true : II
      false : II