diff options
| -rw-r--r-- | contrib/ring/ring.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index c15077a944..178b866de0 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -805,7 +805,7 @@ 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 None) + (Setoid_replace.setoid_replace ci c'''i) (tclTHEN (tclTRY (h_exact c'i_eq_c''i)) tac))) |