Fix mistakes in the example.agda file for IsSomething.

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2023-09-03 11:38:00 -07:00
parent 6b24d67409
commit 8710a5554c

View File

@ -46,10 +46,10 @@ module SecondAttempt where
open IsSemigroup isSemigroup public
record IsContrivedExample {A : Set a} (_∙_ : A A A) : Set a where
record IsContrivedExample {A : Set a} (zero : A) (_∙_ : A A A) : Set a where
field
-- first property
monoid : IsMonoid _∙_
monoid : IsMonoid zero _∙_
-- second property; Semigroup is a stand-in.
semigroup : IsSemigroup _∙_
@ -78,10 +78,10 @@ module ThirdAttempt {A : Set a} (_∙_ : A → A → A) where
open IsSemigroup isSemigroup public
record IsContrivedExample : Set a where
record IsContrivedExample (zero : A) : Set a where
field
-- first property
monoid : IsMonoid _∙_
monoid : IsMonoid zero
-- second property; Semigroup is a stand-in.
semigroup : IsSemigroup _∙_
semigroup : IsSemigroup