Web-Projects/blog-static
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix mistakes in the example.agda file for IsSomething.

Browse Source 
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
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/agda-issomething/example.agda
View File

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