(**************************************************************************)
(*       ___                                                              *)
(*      ||M||                                                             *)
(*      ||A||       A project by Andrea Asperti                           *)
(*      ||T||                                                             *)
(*      ||I||       Developers:                                           *)
(*      ||T||         The HELM team.                                      *)
(*      ||A||         http://helm.cs.unibo.it                             *)
(*      \   /                                                             *)
(*       \ /        This file is distributed under the terms of the       *)
(*        v         GNU General Public License Version 2                  *)
(*                                                                        *)
(**************************************************************************)

(* This file was automatically generated: do not edit *********************)

include "Coq.ma".

(*#**********************************************************************)

(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)

(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)

(*   \VV/  *************************************************************)

(*    //   *      This file is distributed under the terms of the      *)

(*         *       GNU Lesser General Public License Version 2.1       *)

(*#**********************************************************************)

(*i $Id: EqParams.v,v 1.4 2003/03/21 17:37:16 barras Exp $ i*)

(*#* Equality is introduced as an independant parameter, it could be 
    instantiated with Leibniz equality *)

include "Num/Params.ma".

inline procedural "cic:/Coq/Num/EqParams/eqN.con".

(*i Infix 6 "=" eqN V8only 50. i*)

(* NOTATION
Grammar constr constr1 :=
eq_impl [ constr0($c) "=" constr0($c2) ] -> [ (eqN $c $c2) ].
*)

(* NOTATION
Syntax constr
  level 1:
    equal [ (eqN $t1 $t2) ] -> [ [<hov 0> $t1:E [0 1]  "=" $t2:E ] ]
.
*)