Record funspec (B:Type) :=
  { fs_A  : B -> Type
  ; fs_t  : B -> termMeas
  ; fs_P  : forall b, fs_A b -> pred world
  ; fs_Q  : forall b, fs_A b -> pred world
  }.Record funspec (B:Type) :=
  { fs_A  : B -> Type
  ; fs_t  : B -> termMeas
  ; fs_P  : forall b, fs_A b -> pred world
  ; fs_Q  : forall b, fs_A b -> pred world
  }.Record funspec (B:Type) :=
  { fs_A  : B -> Type
  ; fs_t  : B -> termMeas
  ; fs_P  : forall b, fs_A b -> pred world
  ; fs_Q  : forall b, fs_A b -> pred world
  }.Record funspec (B:Type) :=
  { fs_A  : B -> Type
  ; fs_t  : B -> termMeas
  ; fs_P  : forall b, fs_A b -> pred world
  ; fs_Q  : forall b, fs_A b -> pred world
  }.Record funspec (B:Type) :=
  { fs_A  : B -> Type
  ; fs_t  : B -> termMeas
  ; fs_P  : forall b, fs_A b -> pred world
  ; fs_Q  : forall b, fs_A b -> pred world
  }.

Lemma verify_true : forall psi, verify_prog psi TT.