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