(* END lemmas duplicated *)

(* Specifications: *)
Lemma strip_skip_app:
forall k k', strip_skip k = nil -> strip_skip (k++k') = strip_skip k'.
Lemma strip_strip: forall k, strip_skip (strip_skip k) = strip_skip k.
Lemma strip_skip_app_cons:
forall {k c l}, strip_skip k = c::l -> forall k', strip_skip  (k++k') = c::l++k'.
Lemma filter_seq_current_function:
forall ctl1 ctl2, filter_seq ctl1 = filter_seq ctl2 ->
current_function ctl1 = current_function ctl2.
Lemma filter_seq_call_cont:
forall ctl1 ctl2, filter_seq ctl1 = filter_seq ctl2 -> call_cont ctl1 = call_cont ctl2.
Lemma call_cont_app_nil:
forall l k, call_cont l = nil -> call_cont (l++k) = call_cont k.
Lemma call_cont_app_cons:
forall l c l', call_cont l = c::l' -> forall k, call_cont (l++k) = c::l' ++ k.
Lemma and_FF : forall {A} `{ageable A} (P:pred A),
P && FF = FF.
Lemma sepcon_FF : forall {A}{JA: Join A}{PA: Perm_alg A}{AG: ageable A}{XA: Age_alg A} (P:pred A),
(P * FF = FF)%pred.