(****** End contractiveness *****)

Lemma bupd_andp2_corable: forall {A N D: Type} {ND : NatDed A} {SL : SepLog A} {CSL: ClassicalSep A} {BS : BupdSepLog A N D} {CoSL: CorableSepLog A},
forall P Q, corable Q -> (|==> P) && Q |-- |==> (P && Q).