------------------------------------------------------------------------------ -- Distributive laws on a binary operation: Lemma 5 (Task A) ------------------------------------------------------------------------------ {-# OPTIONS --exact-split #-} {-# OPTIONS --no-sized-types #-} {-# OPTIONS --no-universe-polymorphism #-} {-# OPTIONS --without-K #-} module DistributiveLaws.Lemma5-ATP where open import DistributiveLaws.Base ------------------------------------------------------------------------------ postulate lemma₅ : ∀ x y → (x · y) · x ≡ x · (y · x) {-# ATP prove lemma₅ #-}