Mercurial > hg > Members > kono > Proof > ZF-in-agda
comparison logic.agda @ 422:44a484f17f26
syntax *, &, ⟪ , ⟫
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 01 Aug 2020 11:06:29 +0900 |
parents | 8b0715e28b33 |
children | 94392feeebc5 |
comparison
equal
deleted
inserted
replaced
421:cb067605fea0 | 422:44a484f17f26 |
---|---|
15 data Bool : Set where | 15 data Bool : Set where |
16 true : Bool | 16 true : Bool |
17 false : Bool | 17 false : Bool |
18 | 18 |
19 record _∧_ {n m : Level} (A : Set n) ( B : Set m ) : Set (n ⊔ m) where | 19 record _∧_ {n m : Level} (A : Set n) ( B : Set m ) : Set (n ⊔ m) where |
20 constructor ⟪_,_⟫ | |
20 field | 21 field |
21 proj1 : A | 22 proj1 : A |
22 proj2 : B | 23 proj2 : B |
23 | 24 |
24 data _∨_ {n m : Level} (A : Set n) ( B : Set m ) : Set (n ⊔ m) where | 25 data _∨_ {n m : Level} (A : Set n) ( B : Set m ) : Set (n ⊔ m) where |