Skip to content
Snippets Groups Projects
Commit 2630d3b1 authored by Björn Brandenburg's avatar Björn Brandenburg
Browse files

do not rely on vlib 'des' tactic

parent 6eab134c
No related branches found
No related tags found
No related merge requests found
......@@ -10,7 +10,7 @@ Section BigCatLemmas.
x \in (f j) ->
x \in \cat_(m <= i < n) (f i).
Proof.
intros T x m n j f LE IN; move: LE => /andP LE; des.
intros T x m n j f LE IN; move: LE => /andP [LE LE0].
rewrite -> big_cat_nat with (n := j); simpl; [| by ins | by apply ltnW].
rewrite mem_cat; apply/orP; right.
destruct n; first by rewrite ltn0 in LE0.
......@@ -30,7 +30,7 @@ Section BigCatLemmas.
rewrite big_nat_recr // /= mem_cat in IN.
move: IN => /orP [HEAD | TAIL].
{
apply IHn in HEAD; destruct HEAD; exists x0; des.
apply IHn in HEAD; destruct HEAD; exists x0. move: H => [H /andP [H0 H1]].
split; first by done.
by apply/andP; split; [by done | by apply ltnW].
}
......@@ -157,4 +157,4 @@ Section BigCatLemmas.
by apply leq_sum; ins; apply SIZE.
Qed.
End BigCatLemmas.
\ No newline at end of file
End BigCatLemmas.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment