Bug fixed (in Cast).

[helm.git] / helm / ocaml / cic_acic / cic2acic.ml

diff --git a/helm/ocaml/cic_acic/cic2acic.ml b/helm/ocaml/cic_acic/cic2acic.ml
index 1943616226aa19005b0031cf4f86a8c649b72b8f..8540e0e6492fb4c15c3026e38f47c94b38e52202 100644 (file)
--- a/helm/ocaml/cic_acic/cic2acic.ml
+++ b/helm/ocaml/cic_acic/cic2acic.ml
@@ -23,6 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* $Id$ *)
+
 type sort_kind = [ `Prop | `Set | `Type of CicUniv.universe | `CProp ]
 
 let string_of_sort = function
@@ -400,10 +402,14 @@ let aconjecture_of_conjecture seed ids_to_terms ids_to_father_ids
            match binding with
                Some (n,Cic.Def (t,_)) ->
                  let acic = acic_of_cic_context ~computeinnertypes context idrefs t None in
+                 Hashtbl.replace ids_to_father_ids (CicUtil.id_of_annterm acic)
+                  (Some hid);
                  (binding::context),
                    ((hid,Some (n,Cic.ADef acic))::acontext),(hid::idrefs)
              | Some (n,Cic.Decl t) ->
                  let acic = acic_of_cic_context ~computeinnertypes context idrefs t None in
+                 Hashtbl.replace ids_to_father_ids (CicUtil.id_of_annterm acic)
+                  (Some hid);
                  (binding::context),
                    ((hid,Some (n,Cic.ADecl acic))::acontext),(hid::idrefs)
              | None ->