diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-04 14:38:35 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:23:47 +0100 |
commit | 6bd193ff409b01948751525ce0f905916d7a64bd (patch) | |
tree | 02dc0f466fd40a3208d34519960b3c73f9c167bf /proofs/redexpr.ml | |
parent | 2db085e62f7797cc999518eb58983ac059763e1f (diff) |
Nativenorm API using EConstr.
Diffstat (limited to 'proofs/redexpr.ml')
-rw-r--r-- | proofs/redexpr.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml index 348cd1bcb..62fe2c17c 100644 --- a/proofs/redexpr.ml +++ b/proofs/redexpr.ml @@ -37,9 +37,8 @@ let cbv_native env sigma c = (warn_native_compute_disabled (); cbv_vm env sigma c) else - let c = EConstr.Unsafe.to_constr c in - let ctyp = Retyping.get_type_of env sigma c in - Nativenorm.native_norm env sigma c ctyp + let ctyp = Retyping.get_type_of env sigma (EConstr.Unsafe.to_constr c) in + Nativenorm.native_norm env sigma c (EConstr.of_constr ctyp) let whd_cbn flags env sigma t = let (state,_) = |