1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* This file was automatically generated: do not edit *********************)
19 (*#***********************************************************************)
21 (* v * The Coq Proof Assistant / The Coq Development Team *)
23 (* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
25 (* \VV/ **************************************************************)
27 (* // * This file is distributed under the terms of the *)
29 (* * GNU Lesser General Public License Version 2.1 *)
31 (*#***********************************************************************)
33 (*i $Id: JMeq.v,v 1.8.2.2 2004/08/03 17:42:32 herbelin Exp $ i*)
35 (*#* John Major's Equality as proposed by C. Mc Bride
39 [McBride] Elimination with a Motive, Proceedings of TYPES 2000,
40 LNCS 2277, pp 197-216, 2002.
45 Set Implicit Arguments.
48 inline procedural "cic:/Coq/Logic/JMeq/JMeq.ind".
55 Hint Resolve JMeq_refl.
58 inline procedural "cic:/Coq/Logic/JMeq/sym_JMeq.con" as lemma.
61 Hint Immediate sym_JMeq.
64 inline procedural "cic:/Coq/Logic/JMeq/trans_JMeq.con" as lemma.
66 inline procedural "cic:/Coq/Logic/JMeq/JMeq_eq.con".
68 inline procedural "cic:/Coq/Logic/JMeq/JMeq_ind.con" as lemma.
70 inline procedural "cic:/Coq/Logic/JMeq/JMeq_rec.con" as lemma.
72 inline procedural "cic:/Coq/Logic/JMeq/JMeq_ind_r.con" as lemma.
74 inline procedural "cic:/Coq/Logic/JMeq/JMeq_rec_r.con" as lemma.
76 (*#* [JMeq] is equivalent to [(eq_dep Set [X]X)] *)
78 include "Logic/Eqdep.ma".
80 inline procedural "cic:/Coq/Logic/JMeq/JMeq_eq_dep.con" as lemma.
82 inline procedural "cic:/Coq/Logic/JMeq/eq_dep_JMeq.con" as lemma.