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 (*#***************************************************************************)
37 (* Naive Set Theory in Coq *)
43 (* Rocquencourt Sophia-Antipolis *)
61 (* Acknowledgments: This work was started in July 1993 by F. Prost. Thanks *)
63 (* to the Newton Institute for providing an exceptional work environment *)
65 (* in Summer 1995. Several developments by E. Ledinot were an inspiration. *)
67 (*#***************************************************************************)
69 (*i $Id: Finite_sets.v,v 1.6.2.1 2004/07/16 19:31:17 herbelin Exp $ i*)
71 include "Sets/Ensembles.ma".
74 Section Ensembles_finis
78 cic:/Coq/Sets/Finite_sets/Ensembles_finis/U.var
81 inline procedural "cic:/Coq/Sets/Finite_sets/Finite.ind".
83 inline procedural "cic:/Coq/Sets/Finite_sets/cardinal.ind".
90 Hint Resolve Empty_is_finite Union_is_finite: sets v62.
94 Hint Resolve card_empty card_add: sets v62.
97 include "Sets/Constructive_sets.ma".
100 Section Ensembles_finis_facts
104 cic:/Coq/Sets/Finite_sets/Ensembles_finis_facts/U.var
107 inline procedural "cic:/Coq/Sets/Finite_sets/cardinal_invert.con" as lemma.
109 inline procedural "cic:/Coq/Sets/Finite_sets/cardinal_elim.con" as lemma.
112 End Ensembles_finis_facts