Dead code for packing/unpacking (usually just a big hack) commented out

(hopefully forever).

diff --git a/helm/ocaml/cic/cicUtil.ml b/helm/ocaml/cic/cicUtil.ml
index e686b6b35accbf4d4626b8d0fc9617ed356edbd4..a0b03527878f3754325c852f74f1170f78077fd8 100644 (file)
--- 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 d45078fcdf69ca3d910c49f64a2a8d7951109db2..0b6e2242addebd57c9f9d027173c454372e5cd80 100644 (file)
--- 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 ca48567863aa8d9c88ebf6eba9aa986db55c1fae..3f14ebf7378a9502c07a263feb85b94ccae6471b 100644 (file)
--- 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 89f8907fa32fe45648996bffc44146697a147a11..7815a17654e757d1df3bd505345b4d587bc7b1dd 100644 (file)
--- 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
-
+*)