Finish and publish the IsSomething article

code/agda-issomething/example.agda

@@ -46,6 +46,14 @@ module SecondAttempt where
 
         open IsSemigroup isSemigroup public
 
+    record IsContrivedExample {A : Set a} (_∙_ : A → A → A) : Set a where
+        field
+            -- first property
+            monoid : IsMonoid _∙_
+
+            -- second property; Semigroup is a stand-in.
+            semigroup : IsSemigroup _∙_
+
     record Semigroup (A : Set a) : Set a where
         field
             _∙_ : A → A → A
@@ -69,3 +77,11 @@ module ThirdAttempt {A : Set a} (_∙_ : A → A → A) where
             isIdentityRight : ∀ (a : A) → a ∙ zero ≡ a
 
         open IsSemigroup isSemigroup public
+
+    record IsContrivedExample : Set a where
+        field
+            -- first property
+            monoid : IsMonoid _∙_
+
+            -- second property; Semigroup is a stand-in.
+            semigroup : IsSemigroup _∙_