diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2017-04-13 11:20:20 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2017-04-13 11:20:20 +0200 |
| commit | 8b1b6e76a6229d9c091bf805e3786bdf0038ae32 (patch) | |
| tree | f137e7b0f86a6f9a9df43cf8acaad573457e5205 /plugins/rtauto | |
| parent | a5c150a6a7fa980c5850aa247e62d02e29773235 (diff) | |
Silence a few OCaml warnings.
Diffstat (limited to 'plugins/rtauto')
| -rw-r--r-- | plugins/rtauto/refl_tauto.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/plugins/rtauto/refl_tauto.ml b/plugins/rtauto/refl_tauto.ml index f30f8a943..3655df895 100644 --- a/plugins/rtauto/refl_tauto.ml +++ b/plugins/rtauto/refl_tauto.ml @@ -95,7 +95,6 @@ let rec make_form atom_env gls term = let normalize=special_nf gls in let cciterm=special_whd gls term in let sigma = Tacmach.project gls in - let inj = EConstr.Unsafe.to_constr in match EConstr.kind sigma cciterm with Prod(_,a,b) -> if noccurn sigma 1 b && |