diff options
author | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-23 18:50:30 +0000 |
---|---|---|
committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-23 18:50:30 +0000 |
commit | fafba6b545c7d0d774bcd79bdbddb8869517aabb (patch) | |
tree | 1c41d59996f23c4d8d1aefbce96f679533527866 /plugins | |
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')
-rw-r--r-- | plugins/funind/rawterm_to_relation.ml | 6 | ||||
-rw-r--r-- | plugins/funind/rawtermops.mli | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/plugins/funind/rawterm_to_relation.ml b/plugins/funind/rawterm_to_relation.ml index 5d282a5cb..f8da96bdf 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) [] diff --git a/plugins/funind/rawtermops.mli b/plugins/funind/rawtermops.mli index 455e7c89b..465703386 100644 --- a/plugins/funind/rawtermops.mli +++ b/plugins/funind/rawtermops.mli @@ -19,9 +19,9 @@ val pattern_to_term : cases_pattern -> rawconstr val mkRRef : Libnames.global_reference -> rawconstr val mkRVar : Names.identifier -> rawconstr val mkRApp : rawconstr*(rawconstr list) -> rawconstr -val mkRLambda : Names.name*rawconstr*rawconstr -> rawconstr -val mkRProd : Names.name*rawconstr*rawconstr -> rawconstr -val mkRLetIn : Names.name*rawconstr*rawconstr -> rawconstr +val mkRLambda : Names.name * rawconstr * rawconstr -> rawconstr +val mkRProd : Names.name * rawconstr * rawconstr -> rawconstr +val mkRLetIn : Names.name * rawconstr * rawconstr -> rawconstr val mkRCases : rawconstr option * tomatch_tuples * cases_clauses -> rawconstr val mkRSort : rawsort -> rawconstr val mkRHole : unit -> rawconstr (* we only build Evd.BinderType Anonymous holes *) |