src/ZF/Let.ML
author wenzelm
Thu, 07 Sep 2000 21:12:49 +0200
changeset 9907 473a6604da94
parent 1461 6bcb44e4d6e5
permissions -rw-r--r--
tuned ML code (the_context, bind_thms(s));

(*  Title:      ZF/Let
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1995  University of Cambridge

Let expressions -- borrowed from HOL
*)

val [prem] = goalw (the_context ())
    [Let_def] "(!!x. x=t ==> P(u(x))) ==> P(let x=t in u(x))";
by (rtac (refl RS prem) 1);
qed "LetI";