Skip to content
Snippets Groups Projects

Rework lemmas for `take/drop` of an `++`:

Merged Robbert Krebbers requested to merge robbert/take_drop_app into master
All threads resolved!
3 files
+ 75
36
Compare changes
  • Side-by-side
  • Inline
Files
3
+ 1
1
@@ -355,7 +355,7 @@ Proof.
- rewrite <-(assoc_L _). revert k. generalize ([inl (length ts, n)] ++ l).
induction ts as [|t ts'' IH]; intros k ts'''; csimpl; auto.
rewrite reverse_cons, <-!(assoc_L _), FIX; simpl; auto.
- simpl. by rewrite take_app_alt, drop_app_alt, reverse_involutive
- simpl. by rewrite take_app_length', drop_app_length', reverse_involutive
by (by rewrite reverse_length).
Qed.
Loading