Section VLogic.
Context {A val : Type}.
Context {V : ValNull val}.
Definition vlogic := @open A val Prop.
Definition open_eq {T} (a b : open T) : vlogic :=
fun s => a s = b s.
Global Instance ILOpsVLogic : ILogicOps vlogic := _.
Global Instance ILogicVLogic : ILogic vlogic := _.
Local Transparent ILFun_Ops.

Lemma open_eq_reflexive {T : Type} (a b : open T) (H : forall s, a s = b s) :
ltrue |-- open_eq a b.