diff options
Diffstat (limited to 'plugins/funind')
| -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 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) [] diff --git a/plugins/funind/rawtermops.mli b/plugins/funind/rawtermops.mli index 455e7c89b2..4657033869 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 *) |