diff options
| author | glondu | 2010-12-23 18:50:30 +0000 |
|---|---|---|
| committer | glondu | 2010-12-23 18:50:30 +0000 |
| commit | fafba6b545c7d0d774bcd79bdbddb8869517aabb (patch) | |
| tree | 1c41d59996f23c4d8d1aefbce96f679533527866 /plugins/funind/rawterm_to_relation.ml | |
| parent | cdbbcb3ebb9bed4bba558e6fa4a3b01f3cc18af1 (diff) | |
Prepare change of nomenclature rawconstr -> glob_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13742 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/rawterm_to_relation.ml')
| -rw-r--r-- | plugins/funind/rawterm_to_relation.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/funind/rawterm_to_relation.ml b/plugins/funind/rawterm_to_relation.ml index 5d282a5cb2..f8da96bdfc 100644 --- a/plugins/funind/rawterm_to_relation.ml +++ b/plugins/funind/rawterm_to_relation.ml @@ -41,7 +41,7 @@ let compose_raw_context = (* - The main part deals with building a list of raw constructor expressions + The main part deals with building a list of globalized constructor expressions from the rhs of a fixpoint equation. *) @@ -879,7 +879,7 @@ let is_res id = exception Continue (* The second phase which reconstruct the real type of the constructor. - rebuild the raw constructors expression. + rebuild the globalized constructors expression. eliminates some meaningless equalities, applies some rewrites...... *) let rec rebuild_cons env nb_args relname args crossed_types depth rt = @@ -1266,7 +1266,7 @@ let do_build_inductive (function result (* (args',concl') *) -> let rt = compose_raw_context result.context result.value in let nb_args = List.length funsargs.(i) in - (* with_full_print (fun rt -> Pp.msgnl (str "raw constr " ++ pr_rawconstr rt)) rt; *) + (* with_full_print (fun rt -> Pp.msgnl (str "glob constr " ++ pr_rawconstr rt)) rt; *) fst ( rebuild_cons env_with_graphs nb_args relnames.(i) [] |