diff options
author | Matej Kosik <matej.kosik@inria.fr> | 2016-08-14 18:36:30 +0200 |
---|---|---|
committer | Matej Kosik <matej.kosik@inria.fr> | 2016-08-25 07:53:02 +0200 |
commit | 4688a3b9750827eb0f5f61066ca617efcd97bc8c (patch) | |
tree | 33289dff2847f51ef99f7711bee7624ca80a9341 /proofs/logic.ml | |
parent | 16ecabd99d66b3068e17fae486ba4ed77954e813 (diff) |
CLEANUP: functions "Context.{Rel,Named}.Context.fold" were renamed to "Context.{Rel,Named}.fold_constr"
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 19f5f5d3f..e12fe5d70 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -297,9 +297,9 @@ let collect_meta_variables c = let rec collrec deep acc c = match kind_of_term c with | Meta mv -> if deep then error_unsupported_deep_meta () else mv::acc | Cast(c,_,_) -> collrec deep acc c - | (App _| Case _) -> fold_constr (collrec deep) acc c + | (App _| Case _) -> Term.fold_constr (collrec deep) acc c | Proj (_, c) -> collrec deep acc c - | _ -> fold_constr (collrec true) acc c + | _ -> Term.fold_constr (collrec true) acc c in List.rev (collrec false [] c) |