Local Open Scope logic.
Definition NDfunspec_sub (f1 f2 : funspec) :=
let Delta := (funsig_tycontext (funsig_of_funspec f1)) in
match f1 with
| mk_funspec fsig1 cc1 (rmaps.ConstType A1) P1 Q1 _ _ =>
match f2 with
| mk_funspec fsig2 cc2 (rmaps.ConstType A2) P2 Q2 _ _ =>
fsig1 = fsig2 /\ cc1 = cc2 /\  forall x2,
ENTAIL Delta, P2 nil x2 |-- EX x1:_, EX F:mpred,
((`F * P1 nil x1) &&
(!! (ENTAIL (ret0_tycon Delta), `F * Q1 nil x1
|-- Q2 nil x2)))
| _ => False end
| _ => False end.
Definition is_NDfunspec (fs: funspec) :=
match fs with
| mk_funspec _ _ (rmaps.ConstType A) P Q _ _ =>
(forall ts, P ts = P nil /\ Q ts = Q nil)
| _ => False
end.
Inductive empty_type : Type := .
Definition withtype_of_NDfunspec fs := match fs with
mk_funspec _ _ (rmaps.ConstType A) _ _ _ _ => A | _ => empty_type end.
Definition withtype_of_funspec fs := match fs with
mk_funspec _ _ A _ _ _ _ => A end.

Lemma later_exp'' (A: Type) (ND: NatDed A)(Indir: Indir A):
forall T : Type,
(exists x: T, True) ->
forall F : T -> A,
|> (EX x : _, F x) = EX x : T, |> F x.