diff options
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index d7a57e2d9..1c7d5e17f 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -305,7 +305,7 @@ let add_constant sp ce locals env = sp env locals (safe_infer_declaration env (Def body')) op let add_discharged_constant sp r locals env = - let (body,typ,cst) = Cooking.cook_constant env r in + let (body,typ,cst,op) = Cooking.cook_constant env r in let env' = add_constraints cst env in match body with | None -> @@ -322,7 +322,7 @@ let add_discharged_constant sp r locals env = const_type = typ; const_hyps = sp_hyps; const_constraints = cst; - const_opaque = false } + const_opaque = op } in Environ.add_constant sp cb env' |