diff options
Diffstat (limited to 'proofs/clenv.ml')
| -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 f59226e893..d5df3bc958 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -574,7 +574,7 @@ and w_resrec metas evars wc = | App (f,cl) when isConst f -> let wc' = mimick_evar f (Array.length cl) evn wc in w_resrec metas evars wc' - | _ -> error "w_Unify")) + | _ -> raise ex (* error "w_Unify" *))) | _ -> anomaly "w_resrec" |