diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-08 19:02:40 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:27:26 +0100 |
commit | 85ab3e298aa1d7333787c1fa44d25df189ac255c (patch) | |
tree | 32f661f4ccd3fb36657bb9ac8104a08df9cd1d87 /pretyping/nativenorm.ml | |
parent | 67dc22d8389234d0c9b329944ff579e7056b7250 (diff) |
Pretyping API using EConstr.
Diffstat (limited to 'pretyping/nativenorm.ml')
-rw-r--r-- | pretyping/nativenorm.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index c8bcae0c8..ff3424c44 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -409,7 +409,5 @@ let native_conv_generic pb sigma t = Nativeconv.native_conv_gen pb (evars_of_evar_map sigma) t let native_infer_conv ?(pb=Reduction.CUMUL) env sigma t1 t2 = - let t1 = EConstr.Unsafe.to_constr t1 in - let t2 = EConstr.Unsafe.to_constr t2 in Reductionops.infer_conv_gen (fun pb ~l2r sigma ts -> native_conv_generic pb sigma) ~catch_incon:true ~pb env sigma t1 t2 |