Hint Rewrite and_assoc_splittablex using
match goal with |- splittablex ?A => splittablex_tac A end : normalize.
Hint Rewrite and_assoc_splittablex using
match goal with |- splittablex ?A => splittablex_tac A end : gather_prop.
(* Hint Rewrite @and_assoc'' using solve [auto with typeclass_instances] : norm1. Hint Rewrite @and_assoc'' using solve [auto with typeclass_instances] : gather_prop. *)
Ltac hoist_later_left :=
match goal with
| |- (?P |-- _) =>
let P' := strip1_later P in
apply derives_trans with (|>P');
[ solve [ auto 50 with derives ] | ]
end.

Lemma semax_later_trivial: forall Espec  {cs: compspecs} Delta P c Q,
@semax cs Espec Delta (|> P) c Q ->
@semax cs Espec Delta P c Q.