Local Open Scope logic.
Section SEMAX_SC.
Context {cs: compspecs}.

Lemma nth_error_SEP_sepcon_TT': forall D P Q R n Rn S,
ENTAIL D, PROPx P (LOCALx Q (SEPx (Rn :: nil))) |-- S ->
nth_error R n = Some Rn ->
ENTAIL D, (PROPx P (LOCALx Q (SEPx R))) |-- S * TT.