From 37a49513f22a3f792a1ac3241962a7d17455f7e5 Mon Sep 17 00:00:00 2001 From: Kazuhiko Sakaguchi Date: Sat, 16 May 2020 09:02:13 +0900 Subject: A few more revisions --- mathcomp/ssreflect/path.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mathcomp/ssreflect/path.v') diff --git a/mathcomp/ssreflect/path.v b/mathcomp/ssreflect/path.v index 060a2ca..6e72af0 100644 --- a/mathcomp/ssreflect/path.v +++ b/mathcomp/ssreflect/path.v @@ -1167,7 +1167,7 @@ Qed. Lemma cycle_from_next : (forall x, x \in p -> e x (next p x)) -> cycle e p. Proof. case: p (next p) cycle_next => //= [x q] n; rewrite -(belast_rcons x q x). -move: {q}(rcons q x) => q n_q; move/allP. +move: {q}(rcons q x) => q n_q /allP. by elim: q x n_q => //= _ q IHq x /andP[/eqP <- n_q] /andP[-> /IHq->]. Qed. -- cgit v1.2.3