comparison 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
comparison
equal deleted inserted replaced
994:485bc7560a75 995:1d365952dde4
93 e4b = refl 93 e4b = refl
94 *-cong : {a b c : Obj Sets} {f f' : Hom Sets (a ∧ b) c} → 94 *-cong : {a b c : Obj Sets} {f f' : Hom Sets (a ∧ b) c} →
95 Sets [ f ≈ f' ] → Sets [ f * ≈ f' * ] 95 Sets [ f ≈ f' ] → Sets [ f * ≈ f' * ]
96 *-cong refl = refl 96 *-cong refl = refl
97 97
98 -- ○ b
99 -- b -----------→ 1
100 -- | |
101 -- m | | ⊤
102 -- ↓ char m ↓
103 -- a -----------→ Ω
104 -- h
105
98 data II {c : Level } : Set c where 106 data II {c : Level } : Set c where
99 true : II 107 true : II
100 false : II 108 false : II
101 109
102 data Tker {c : Level} {a : Set c} ( f : a → II {c} ) : Set c where 110 data Tker {c : Level} {a : Set c} ( f : a → II {c} ) : Set c where