diff logic.agda @ 387:8b0715e28b33

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 25 Jul 2020 09:09:00 +0900
parents 22d435172d1a
children 44a484f17f26
line wrap: on
line diff
--- a/logic.agda	Thu Jul 23 17:50:28 2020 +0900
+++ b/logic.agda	Sat Jul 25 09:09:00 2020 +0900
@@ -5,6 +5,12 @@
 open import Relation.Binary
 open import Data.Empty
 
+data One {n : Level } : Set n where
+  OneObj : One
+
+data Two : Set where
+   i0 : Two
+   i1 : Two
 
 data Bool : Set where
    true : Bool