(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(*                 The Calculus of Inductive Constructions                  *)
(*                                                                          *)
(*                                Projet Coq                                *)
(*                                                                          *)
(*                     INRIA                        ENS-CNRS                *)
(*              Rocquencourt                        Lyon                    *)
(*                                                                          *)
(*                                Coq V5.10                                 *)
(*                              Nov 25th 1994                               *)
(*                                                                          *)
(****************************************************************************)
(*                                  misc.v                                  *)
(****************************************************************************)
Require Export Lci.
(****************)
Definition antisym (A : Set) (R : A -> A -> Prop) :=
forall x y : A, R x y -> R y x -> x = y :>A.
(********************)
Definition pi1 : forall (A : Set) (P : A -> Prop), {x : A | P x} -> A.
(*******************)
Definition inversible (S : Set) (Mult : S -> S -> S)
(I x : S) := exists y : S, Mult x y = I /\ Mult y x = I.

(* Specifications: *)
(************)
Lemma inv_com :
forall (S : Set) (Mult : S -> S -> S) (I x : S),
commutativity S Mult ->
(exists y : S, Mult x y = I) -> inversible S Mult I x.