From 5521b5f6cfb206ce83ef7fe8023bad66a82af7d7 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 16 Jun 2005 14:14:41 +0000
Subject: [PATCH] Dead code for packing/unpacking (usually just a big hack)
 commented out (hopefully forever).

---
 helm/ocaml/cic/cicUtil.ml                 | 2 ++
 helm/ocaml/cic/cicUtil.mli                | 2 ++
 helm/ocaml/cic_transformations/cicAst.ml  | 3 ++-
 helm/ocaml/cic_transformations/cicAst.mli | 3 ++-
 4 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index e686b6b35..a0b035278 100644
--- a/helm/ocaml/cic/cicUtil.ml
+++ b/helm/ocaml/cic/cicUtil.ml
@@ -250,6 +250,7 @@ let context_of ?(equality=(==)) ~term terms =
   in
   aux term
 
+(*
 let pack terms =
   List.fold_right
     (fun term acc -> Cic.Prod (Cic.Anonymous, term, acc))
@@ -259,6 +260,7 @@ let rec unpack = function
   | Cic.Prod (Cic.Anonymous, term, Cic.Sort (Cic.Type _)) -> [term]
   | Cic.Prod (Cic.Anonymous, term, tgt) -> term :: unpack tgt
   | _ -> assert false
+*)
 
 let rec strip_prods n = function
   | t when n = 0 -> t
diff --git a/helm/ocaml/cic/cicUtil.mli b/helm/ocaml/cic/cicUtil.mli
index d45078fcd..0b6e2242a 100644
--- a/helm/ocaml/cic/cicUtil.mli
+++ b/helm/ocaml/cic/cicUtil.mli
@@ -45,9 +45,11 @@ val strip_prods: int -> Cic.term -> Cic.term
 val term_of_uri: string -> Cic.term (** @raise UriManager.IllFormedUri *)
 val uri_of_term: Cic.term -> string (** @raise Invalid_argument "uri_of_term" *)
 
+(*
   (** packing/unpacking of several terms into a single one *)
 val pack: Cic.term list -> Cic.term
 val unpack: Cic.term -> Cic.term list
+*)
 
 (** {2 Cic selectors} *)
 
diff --git a/helm/ocaml/cic_transformations/cicAst.ml b/helm/ocaml/cic_transformations/cicAst.ml
index ca4856786..3f14ebf73 100644
--- a/helm/ocaml/cic_transformations/cicAst.ml
+++ b/helm/ocaml/cic_transformations/cicAst.ml
@@ -82,6 +82,7 @@ and meta_subst = term option
 and subst = string * term
 and case_pattern = string * capture_variable list
 
+(*
 let pack asts =
   List.fold_right
     (fun ast acc -> Binder (`Forall, (Cic.Anonymous, Some ast), acc))
@@ -91,4 +92,4 @@ let rec unpack = function
   | Binder (`Forall, (Cic.Anonymous, Some ast), Sort `Type) -> [ast]
   | Binder (`Forall, (Cic.Anonymous, Some ast), tgt) -> ast :: unpack tgt
   | _ -> assert false
-
+*)
diff --git a/helm/ocaml/cic_transformations/cicAst.mli b/helm/ocaml/cic_transformations/cicAst.mli
index 89f8907fa..7815a1765 100644
--- a/helm/ocaml/cic_transformations/cicAst.mli
+++ b/helm/ocaml/cic_transformations/cicAst.mli
@@ -77,6 +77,7 @@ and meta_subst = term option
 and subst = string * term
 and case_pattern = string * capture_variable list
 
+(*
 val pack: term list -> term
 val unpack: term -> term list
-
+*)
-- 
2.39.2