/-
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Leonardo de Moura
-/
prelude
import init.logic
universe u

class is_associative (α : Type u) (op : α → α → α) :=
(assoc : ∀ a b c, op (op a b) c = op a (op b c))

class is_commutative (α : Type u) (op : α → α → α) :=
(comm : ∀ a b, op a b = op b a)