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