diff options
| -rw-r--r-- | contrib/ring/ring.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index 178b866de..9221ed68f 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -805,7 +805,9 @@ let raw_polynom th op lc gl = (unbox th.th_setoid_th); c'''i; ci; c'i_eq_c''i |])))) (tclTHEN - (Setoid_replace.setoid_replace ci c'''i) + (tclORELSE + (Setoid_replace.setoid_replace ci c'''i) + (Setoid_replace.setoid_replace c'''i ci)) (tclTHEN (tclTRY (h_exact c'i_eq_c''i)) tac))) |