diff options
author | 2016-03-28 17:53:43 +0200 | |
---|---|---|
committer | 2016-03-28 18:28:58 +0200 | |
commit | d670c6b6ceab80f1c3b6b74ffb53579670c0e621 (patch) | |
tree | 38b375155df8cd81638ebcab7401d35ec8f08502 /ltac/rewrite.ml | |
parent | 044d9f62bf0e1140268a3236e4bb53f10d716078 (diff) |
Fixing an incorrect use of prod_appvect on a term which was not a
product in setoid_rewrite.
Before commit e8c47b652, it was raising an error which has been turned
to an anomaly.
This impacted Compcert where the former error was (apparently) caught
so that setoid_rewrite was returning back to ordinary rewrite.
Diffstat (limited to 'ltac/rewrite.ml')
-rw-r--r-- | ltac/rewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ltac/rewrite.ml b/ltac/rewrite.ml index 20d4651ef..cf2a01052 100644 --- a/ltac/rewrite.ml +++ b/ltac/rewrite.ml @@ -1046,7 +1046,7 @@ let subterm all flags (s : 'a pure_strategy) : 'a pure_strategy = | x -> x in let res = - { rew_car = prod_appvect r.rew_car args; + { rew_car = Reductionops.hnf_prod_appvect env (goalevars evars) r.rew_car args; rew_from = mkApp(r.rew_from, args); rew_to = mkApp(r.rew_to, args); rew_prf = prf; rew_evars = r.rew_evars } in |