fix-whitespace

Author: jmougeot

src/Algebra/Properties/Monoid/Reasoning.agda

@@ -11,8 +11,6 @@ open import Algebra.Bundles using (Monoid)
 
 module Algebra.Properties.Monoid.Reasoning {o ℓ} (M : Monoid o ℓ) where
 
-open import Algebra.Structures using (IsMagma)
-
 open Monoid M
     using (Carrier; _∙_; _≈_; setoid; isMagma; semigroup; ε; sym; identityˡ
     ; identityʳ ; ∙-cong; refl; assoc; ∙-congˡ; ∙-congʳ; trans)
@@ -51,7 +49,7 @@ open IntroElim public
 
 module Cancellers {a b c : Carrier} (inv : a ∙ c ≈ ε) where
 
-  cancelʳ : (b ∙ a) ∙ c ≈ b 
+  cancelʳ : (b ∙ a) ∙ c ≈ b
   cancelʳ = trans (assoc b a c) (trans (∙-congˡ inv) (identityʳ b))
 
   cancelˡ : a ∙ (c ∙ b) ≈ b