Definition FRZ (p: mpred) := p.Definition FRZL (ps:list mpred): mpred := fold_right sepcon emp ps.Definition FRZRw := FRZRw'.Definition FRZRw_constr:= FRZRw'_constr.Definition FRZR (L1 G1: list mpred) {w: FRZRw L1 G1}: mpred := 
  match w with
  | FRZRw'_constr F _ => F
  end.Notation FRZ := Freezer.FRZ.Notation FRZL := Freezer.FRZL.Notation FRZR := Freezer.FRZR.Notation FRZRw := Freezer.FRZRw.

Lemma FRZ_ax:forall p, FRZ p = p.