src/ZF/IMP/Assign.thy
author paulson
Tue, 04 Mar 1997 10:41:33 +0100
changeset 2716 9e11a914156a
parent 482 3a4e092ba69c
permissions -rw-r--r--
Now uses RepFun_eqI instead of RepFunI; improved version of InterE to replace "make_elim InterD" in claset
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
482
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     1
(*  Title: 	ZF/IMP/Assign.thy
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     2
    ID:         $Id$
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     3
    Author: 	Heiko Loetzbeyer & Robert Sandner, TUM
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     4
    Copyright   1994 TUM
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     5
*)
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     6
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     7
Assign = Aexp +
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     8
consts 
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
     9
	"assign" :: "[i,i,i] => i"	("_[_'/_]" [900,0,0] 900)
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
    10
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
    11
rules 
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
    12
	assign_def	"sigma[m/x] == lam y:loc. if(y=x,m,sigma`y)"
3a4e092ba69c Initial revision
nipkow
parents:
diff changeset
    13
end