Admin/Benchmarks/HOL-datatype/Instructions.thy
changeset 7373 776d888472aa
parent 7013 8a7fb425e04a
child 16417 9bc16273c2d4
--- a/Admin/Benchmarks/HOL-datatype/Instructions.thy	Fri Aug 27 10:49:12 1999 +0200
+++ b/Admin/Benchmarks/HOL-datatype/Instructions.thy	Fri Aug 27 10:54:31 1999 +0200
@@ -2,7 +2,7 @@
     ID:         $Id$
 *)
 
-Instructions = Main +
+theory Instructions = Main:
 
 (* ------------------------------------------------------------------------- *)
 (* Example from Konrad: 68000 instruction set.                               *)
@@ -117,8 +117,8 @@
     | MOVEtoUSP AddressingMode
     | MOVEfromUSP AddressingMode
     | MOVEA Size AddressingMode AddressRegister
-    | MOVEMto Size AddressingMode (DataOrAddressRegister list)
-    | MOVEMfrom Size (DataOrAddressRegister list) AddressingMode
+    | MOVEMto Size AddressingMode "DataOrAddressRegister list"
+    | MOVEMfrom Size "DataOrAddressRegister list" AddressingMode
     | MOVEP Size AddressingMode AddressingMode
     | MOVEQ nat DataRegister
     | MULS AddressingMode DataRegister