fact: Fixpoint embed (P : msp_form) : sp_form := match P with | mpointer E E1 E2 => sand (pointer E E1 E2) (imp bot bot) | mbot => bot | mimp P1 P2 => imp (embed P1) (embed P2) | mand P1 P2 => and (embed P1) (embed P2) | mor P1 P2 => or (embed P1) (embed P2) | mall P => all (embed P) | mex P => ex (embed P) end.
imports: Undecidability.SeparationLogic(MSL SL) List