(***** subtyping and contractiveness -- should split this into a separate file ******)

Lemma subp_sepcon {A} {NA: NatDed A}{IA: Indir A}{SA: SepLog A}{SI: SepIndir A}{RA: RecIndir A}{SRA: SepRec A} :
forall G (P P' Q Q' : A),
G |-- P >=> P' ->
G |-- Q >=> Q' ->
G |-- P * Q >=> P' * Q'.