EXISTS_LEFT1 : term -> thm -> thm
h1, h2, h3 |- t --------------------- EXISTS_LEFT1 ``x`` ?x. h1 /\ h3, h2 |- t
EXISTS_LEFT1 fvx th is [p, q, h y, ?x. g x /\ f x y] |- r
EXISTS_LEFT1 fvy th is [p, q, g x, ?y. h y /\ f x y] |- r
See EXISTS_LEFT for further discussion