diff options
| author | Pierre-Marie Pédrot | 2019-02-17 14:27:26 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-02-17 14:27:26 +0100 |
| commit | a49077ef67b8e70696ecacc311fc3070d1b7b461 (patch) | |
| tree | 1d9adcfba5d77543a91140dbacbe975da00c213e /engine/termops.ml | |
| parent | 9014e6544cb251f140636f774e95df4037d8d8f6 (diff) | |
| parent | ac7169182a970c33be2e33abd43be5bf19542e2c (diff) | |
Merge PR #9528: Fix #9527: unknown evar in nonterminating [fix] error.
Reviewed-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 579100ad4c..2f766afaa6 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -1417,11 +1417,9 @@ let prod_applist_assum sigma n c l = | _ -> anomaly (Pp.str "Not enough prod/let's.") in app n [] c l -(* Combinators on judgments *) - -let on_judgment f j = { uj_val = f j.uj_val; uj_type = f j.uj_type } -let on_judgment_value f j = { j with uj_val = f j.uj_val } -let on_judgment_type f j = { j with uj_type = f j.uj_type } +let on_judgment = Environ.on_judgment +let on_judgment_value = Environ.on_judgment_value +let on_judgment_type = Environ.on_judgment_type (* Cut a context ctx in 2 parts (ctx1,ctx2) with ctx1 containing k non let-in variables skips let-in's; let-in's in the middle are put in ctx2 *) |