src/ZF/Let.ML
author paulson
Tue, 23 Jan 1996 11:33:46 +0100
changeset 1450 19a256c8086d
parent 1061 8897213195c0
child 1461 6bcb44e4d6e5
permissions -rw-r--r--
Renamed letI to LetI (for consistency)
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;
1450
19a256c8086d Renamed letI to LetI (for consistency)
paulson
parents: 1061
diff changeset
    14
qed "LetI";