src/ZF/Let.ML
author clasohm
Sat, 09 Dec 1995 13:36:11 +0100
changeset 1401 0c439768f45c
parent 1061 8897213195c0
child 1450 19a256c8086d
permissions -rw-r--r--
removed quotes from consts and syntax sections
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1061
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     1
(*  Title: 	ZF/Let
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     2
    ID:         $Id$
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     4
    Copyright   1995  University of Cambridge
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     5
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     6
Let expressions -- borrowed from HOL
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     7
*)
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     8
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
     9
open Let;
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
    10
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
    11
val [prem] = goalw thy
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
    12
    [Let_def] "(!!x. x=t ==> P(u(x))) ==> P(let x=t in u(x))";
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
    13
br (refl RS prem) 1;
8897213195c0 Definition of 'let' declarations, from HOL
lcp
parents:
diff changeset
    14
qed "letI";