STRIP_BINDER_CONV : term option -> conv -> conv
- STRIP_BINDER_CONV NONE BETA_CONV (Term `\u v w. (\a. a + v * w) u`);
> val it = |- (\u v w. (\a. a + v * w) u) = (\u v w. u + v * w) : thm
- STRIP_BINDER_CONV (SOME existential) SYM_CONV
(Term `?u v w x y. u + v = w + x + y`);
> val it = |- (?u v w x y. u + v = w + x + y) =
?u v w x y. w + x + y = u + v : thm