From d9db4dec813a18b205f1cd9bccca54aa23524706 Mon Sep 17 00:00:00 2001
From: Erik Martin-Dorel
Date: Mon, 25 Feb 2019 02:58:45 +0100
Subject: [ssr] under: Change the style of a few tests (over tactic vs. lemma)

---
 test-suite/ssr/under.v | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'test-suite')

diff --git a/test-suite/ssr/under.v b/test-suite/ssr/under.v
index 190277aa31..7db2f2a982 100644
--- a/test-suite/ssr/under.v
+++ b/test-suite/ssr/under.v
@@ -88,8 +88,8 @@ Proof.
 (* in interactive mode *)
 under i Hi: eq_bigr.
   under j Hj: eq_big.
-  { by rewrite muln1 over. }
-  { by rewrite addnC over. }
+  { rewrite muln1. over. }
+  { rewrite addnC. over. }
   over.
 done.
 Qed.
@@ -107,8 +107,7 @@ Lemma test_big_patt1 (F G : nat -> nat) (n : nat) :
   \sum_(0 <= i < n) (F i + G i) = \sum_(0 <= i < n) (G i + F i) + 0.
 Proof.
 under i Hi: [in RHS]eq_bigr.
-  rewrite addnC.
-  over.
+  by rewrite addnC over.
 done.
 Qed.
 
@@ -116,17 +115,14 @@ Lemma test_big_patt2 (F G : nat -> nat) (n : nat) :
   \sum_(0 <= i < n) (F i + F i) =
   \sum_(0 <= i < n) 0 + \sum_(0 <= i < n) (F i * 2).
 Proof.
-under i Hi: [X in _ = _ + X]eq_bigr.
-  rewrite mulnS muln1.
-  over.
+under i Hi: [X in _ = _ + X]eq_bigr by rewrite mulnS muln1.
 by rewrite big_const_nat iter_addn_0.
 Qed.
 
 Lemma test_big_occs (F G : nat -> nat) (n : nat) :
   \sum_(0 <= i < n) (i * 0) = \sum_(0 <= i < n) (i * 0) + \sum_(0 <= i < n) (i * 0).
 Proof.
-under i Hi: {2}[in RHS]eq_bigr.
-  by rewrite muln0 /= over.
+under i Hi: {2}[in RHS]eq_bigr by rewrite muln0.
 by rewrite big_const_nat iter_addn_0.
 Qed.
 
-- 
cgit v1.2.3