diff options
| author | Kazuhiko Sakaguchi | 2020-11-21 13:32:03 +0900 |
|---|---|---|
| committer | Kazuhiko Sakaguchi | 2020-11-25 22:29:54 +0900 |
| commit | 43796130c3e59c0651a283e6654a7d82acbfeed3 (patch) | |
| tree | 3d18d69f56e32e3b571edbc7b8474f036c913b68 /mathcomp/ssreflect/path.v | |
| parent | c2b2ea2dce5fa7b8d428a5072f2e86979eeb1d98 (diff) | |
Apply suggestions from code review
Co-authored-by: Cyril Cohen <CohenCyril@users.noreply.github.com>
Diffstat (limited to 'mathcomp/ssreflect/path.v')
| -rw-r--r-- | mathcomp/ssreflect/path.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/mathcomp/ssreflect/path.v b/mathcomp/ssreflect/path.v index 112f129..8ee8bea 100644 --- a/mathcomp/ssreflect/path.v +++ b/mathcomp/ssreflect/path.v @@ -1101,8 +1101,7 @@ Lemma merge_stable_path x s1 s2 : path leT_lex x (merge leT s1 s2). Proof. elim: s1 s2 x => //= x s1 ih1; elim => //= y s2 ih2 h. -rewrite allrel_consl allrel_consr /= -andbA. -move=> /and4P [xy' xs2 ys1 s1s2] /andP [hx xs1] /andP [hy ys2]. +rewrite allrel_cons2 => /and4P [xy' xs2 ys1 s1s2] /andP [hx xs1] /andP [hy ys2]. case: ifP => xy /=; rewrite (hx, hy) /=. - by apply: ih1; rewrite ?allrel_consr ?ys1 //= xy xy' implybT. - by apply: ih2; have:= leT_total x y; rewrite ?allrel_consl ?xs2 ?xy //= => ->. |