Set Bullet Behavior "Strict Subproofs".

Lemma age_yes_sat {Phi Phi' phi phi' l z z' sh sh'} (R : pred rmap) :
level Phi = level phi ->
age Phi Phi' ->
age phi phi' ->
app_pred R phi ->
Phi  @ l = YES sh sh' (LK z z') (SomeP rmaps.Mpred (fun _ => R)) ->
app_pred (approx (S (level phi')) R) phi' /\
Phi' @ l = YES sh sh' (LK z z') (SomeP rmaps.Mpred (fun _ => approx (level Phi') R)).