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.