inverse_semigroup.clif

/*******************************************************************************
 * Copyright (c) University of Toronto and others. All rights reserved.
 * The content of this file is licensed under the Creative Commons Attribution-
 * ShareAlike 4.0 Unported license. The legal text of this license can be
 * found at http://creativecommons.org/licenses/by-sa/4.0/legalcode.
 *
 * Contributors:
 *    Michael Gruninger - initial implementation
 *******************************************************************************/
 

(cl-text http://colore.oor.net/magma/inverse_semigroup.clif

(cl-imports http://colore.oor.net/magma/semigroup.clif)

(cl-imports http://colore.oor.net/magma/definitions/magma_defs.clif)

(forall (x)
	(exists (y)
		(and 	(= y (op y (op x y)))
			(= x (op x (op y x)))))) 

(forall (x y z)
        (if     (and    (inverse x y)
                        (inverse x z))
                (= y z)))


)