diff options
| author | coqbot-app[bot] | 2021-04-07 09:10:11 +0000 |
|---|---|---|
| committer | GitHub | 2021-04-07 09:10:11 +0000 |
| commit | 6f6825636ffe705442dfbbdacfef2e925553b28b (patch) | |
| tree | 5ca28b3f8f65625843aba7fa47c2f845fe7f5929 /proofs | |
| parent | ae4c38571697528b96dd1f5319873dfe5a11d581 (diff) | |
| parent | 4e28d88de719711a608389a02f9358182eec5235 (diff) | |
Merge PR #14056: Miscellaneous mini-"typos" fixes
Reviewed-by: SkySkimmer
Reviewed-by: jfehrle
Reviewed-by: silene
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 44d3b44077..b529bba3f5 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -298,7 +298,7 @@ let meta_reducible_instance env evd b = if not is_coerce then irec g else u with Not_found -> u) | Proj (p,c) when isMeta evd c || isCast evd c && isMeta evd (pi1 (destCast evd c)) (* What if two nested casts? *) -> - let m = try destMeta evd c with _ -> destMeta evd (pi1 (destCast evd c)) (* idem *) in + let m = try destMeta evd c with DestKO -> destMeta evd (pi1 (destCast evd c)) (* idem *) in (match try let g, s = Metamap.find m metas in |