transcript: we now check for non-existing objects

[helm.git] / helm / software / matita / contribs / procedural / Coq / Sorting / Sorting.mma

diff --git a/helm/software/matita/contribs/procedural/Coq/Sorting/Sorting.mma b/helm/software/matita/contribs/procedural/Coq/Sorting/Sorting.mma
index e42ed60b4bbe7ccf9b8b84c8a1f492a5eb1491e8..223dd5065596972c8ecfa79bd79447e8a350ed40 100644 (file)
--- a/helm/software/matita/contribs/procedural/Coq/Sorting/Sorting.mma
+++ b/helm/software/matita/contribs/procedural/Coq/Sorting/Sorting.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: Sorting.v,v 1.4 2003/11/29 17:28:44 herbelin Exp $ i*)
+(*i $Id: Sorting.v,v 1.4.2.1 2004/07/16 19:31:19 herbelin Exp $ i*)
 
 include "Lists/List.ma".
 
@@ -60,6 +60,8 @@ cic:/Coq/Sorting/Sorting/defs/leA.var
 cic:/Coq/Sorting/Sorting/defs/eqA.var
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Sorting/defs/gtA.con **************)
+
 inline procedural "cic:/Coq/Sorting/Sorting/defs/gtA.con" "defs__" as definition.
 
 (* UNEXPORTED
@@ -90,8 +92,12 @@ Hint Resolve leA_refl.
 Hint Immediate eqA_dec leA_dec leA_antisym.
 *)
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Sorting/defs/emptyBag.con *********)
+
 inline procedural "cic:/Coq/Sorting/Sorting/defs/emptyBag.con" "defs__" as definition.
 
+(* UNAVAILABLE OBJECT: cic:/Coq/Sorting/Sorting/defs/singletonBag.con *****)
+
 inline procedural "cic:/Coq/Sorting/Sorting/defs/singletonBag.con" "defs__" as definition.
 
 (*#* [lelistA] *)