diff options
Diffstat (limited to 'contrib/first-order')
| -rw-r--r-- | contrib/first-order/instances.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/first-order/instances.ml b/contrib/first-order/instances.ml index 04852da664..8eeb8b642d 100644 --- a/contrib/first-order/instances.ml +++ b/contrib/first-order/instances.ml @@ -130,7 +130,7 @@ let mk_open_instance id gl m t= RLambda(loc,name,RHole (dummy_loc,Evd.BinderType name),t1) | _-> anomaly "can't happen" in let ntt=try - Pretyping.understand evmap env (raux m rawt) + Pretyping.Default.understand evmap env (raux m rawt) with _ -> error "Untypable instance, maybe higher-order non-prenex quantification" in Sign.decompose_lam_n_assum m ntt |