diff options
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index cad9ad602..081c2117b 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -347,7 +347,8 @@ let rec subst_aconstr subst bound raw = if ref' == ref then raw else AHole (Evd.InternalHole) | AHole (Evd.BinderType _ | Evd.QuestionMark _ | Evd.CasesType - | Evd.InternalHole | Evd.TomatchTypeParameter _ | Evd.GoalEvar ) -> raw + | Evd.InternalHole | Evd.TomatchTypeParameter _ | Evd.GoalEvar + | Evd.ImpossibleCase) -> raw | ACast (r1,k) -> match k with |