Redo fix init_setoid -> init_relation_classes

It got lost during a merge with the 8.5 branch.

1 files changed, 1 insertions, 1 deletions

diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml
index 1be78c2ad..67d21886b 100644
--- a/tactics/rewrite.ml
+++ b/tactics/rewrite.ml
@@ -2086,7 +2086,7 @@ let setoid_proof ty fn fallback =
           let open Context.Rel.Declaration in
           let (sigma, t) = Typing.type_of env sigma rel in
           let car = get_type (List.hd (fst (Reduction.dest_prod env t))) in
-	    (try init_setoid () with _ -> raise Not_found);
+	    (try init_relation_classes () with _ -> raise Not_found);
             fn env sigma car rel
         with e -> Proofview.tclZERO e
       end