X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprocedural%2FCoq%2FSorting%2FHeap.mma;h=006e4905e520548b7bdc0d32bc2cdab8ec61050d;hb=5ede839a0cf3339568202750b4aae85ccc63fcb0;hp=6b0e22124da7c7539fbd091ee6311ccf1745ce86;hpb=29714797b01e0ac8c22e4df2827b1785a759f482;p=helm.git

diff --git a/helm/software/matita/contribs/procedural/Coq/Sorting/Heap.mma b/helm/software/matita/contribs/procedural/Coq/Sorting/Heap.mma
index 6b0e22124..006e4905e 100644
--- a/helm/software/matita/contribs/procedural/Coq/Sorting/Heap.mma
+++ b/helm/software/matita/contribs/procedural/Coq/Sorting/Heap.mma
@@ -16,21 +16,21 @@
 
 include "Coq.ma".
 
-(*#**********************************************************************)
+(*#***********************************************************************)
 
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
 
-(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
+(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
 
-(*   \VV/  *************************************************************)
+(*   \VV/  **************************************************************)
 
-(*    //   *      This file is distributed under the terms of the      *)
+(*    //   *      This file is distributed under the terms of the       *)
 
-(*         *       GNU Lesser General Public License Version 2.1       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
 
-(*#**********************************************************************)
+(*#***********************************************************************)
 
-(*i $Id: Heap.v,v 1.3 2003/11/29 17:28:44 herbelin Exp $ i*)
+(*i $Id: Heap.v,v 1.3.2.1 2004/07/16 19:31:19 herbelin Exp $ i*)
 
 (*#* A development of Treesort on Heap trees *)
 
@@ -62,6 +62,8 @@ cic:/Coq/Sorting/Heap/defs/leA.var
 cic:/Coq/Sorting/Heap/defs/eqA.var
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Heap/defs/gtA.con *****************)
+
 inline procedural "cic:/Coq/Sorting/Heap/defs/gtA.con" "defs__" as definition.
 
 (* UNEXPORTED
@@ -92,8 +94,12 @@ Hint Resolve leA_refl.
 Hint Immediate eqA_dec leA_dec leA_antisym.
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Heap/defs/emptyBag.con ************)
+
 inline procedural "cic:/Coq/Sorting/Heap/defs/emptyBag.con" "defs__" as definition.
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Heap/defs/singletonBag.con ********)
+
 inline procedural "cic:/Coq/Sorting/Heap/defs/singletonBag.con" "defs__" as definition.
 
 inline procedural "cic:/Coq/Sorting/Heap/Tree.ind".