Changeset 2997

Timestamp:

Mar 28, 2013, 10:27:41 AM (4 years ago)

Author:

sacerdot

Message:

New extraction.

Location:

extracted

Files:

• aSM.ml (modified) (48 diffs)
• aSMCostsSplit.ml (modified) (2 diffs)
• aSMCostsSplit.mli (modified) (1 diff)
• aST.ml (modified) (21 diffs)
• byteValues.ml (modified) (19 diffs)
• classifyOp.ml (modified) (30 diffs)
• cminor_semantics.ml (modified) (10 diffs)
• cminor_syntax.ml (modified) (16 diffs)
• csem.ml (modified) (5 diffs)
• csyntax.ml (modified) (18 diffs)
• eRTL.ml (modified) (7 diffs)
• eRTLptr.ml (modified) (6 diffs)
• eRTLptrToLTL.ml (modified) (6 diffs)
• errorMessages.ml (modified) (1 diff)
• errors.ml (modified) (7 diffs)
• events.ml (modified) (7 diffs)
• fetch.ml (modified) (1 diff)
• fixpoints.ml (modified) (7 diffs)
• frontEndOps.ml (modified) (19 diffs)
• genMem.ml (modified) (2 diffs)
• globalenvs.ml (modified) (8 diffs)
• iO.ml (modified) (6 diffs)
• iOMonad.ml (modified) (5 diffs)
• identifiers.ml (modified) (2 diffs)
• interference.ml (modified) (7 diffs)
• interpret2.ml (modified) (1 diff)
• joint.ml (modified) (81 diffs)
• joint_LTL_LIN.ml (modified) (12 diffs)
• joint_LTL_LIN_semantics.ml (modified) (1 diff)
• joint_LTL_LIN_semantics.mli (modified) (1 diff)
• joint_semantics.ml (modified) (54 diffs)
• measurable.ml (modified) (12 diffs)
• pointers.ml (modified) (3 diffs)
• rTL_semantics.ml (modified) (13 diffs)
• rTLabsToRTL.ml (modified) (6 diffs)
• rTLabs_abstract.ml (modified) (12 diffs)
• rTLabs_semantics.ml (modified) (6 diffs)
• rTLabs_syntax.ml (modified) (18 diffs)
• rTLabs_syntax.mli (modified) (11 diffs)
• registerSet.ml (modified) (7 diffs)
• semanticsUtils.ml (modified) (18 diffs)
• simplifyCasts.ml (modified) (7 diffs)
• smallstep.ml (modified) (14 diffs)
• smallstepExec.ml (modified) (18 diffs)
• stacksize.ml (modified) (2 diffs)
• status.ml (modified) (24 diffs)
• structuredTraces.ml (modified) (31 diffs)
• switchRemoval.ml (modified) (11 diffs)
• toCminor.ml (modified) (31 diffs)
• toRTLabs.ml (modified) (33 diffs)
• toRTLabs.mli (modified) (11 diffs)
• traces.ml (modified) (14 diffs)
• traces.mli (modified) (1 diff)
• untrusted/untrusted_interference.ml (modified) (1 diff)
• values.ml (modified) (6 diffs)

extracted/aSM.ml

@@ -113 +113 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type4 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_33 -> h_DIRECT x_33
-| INDIRECT x_34 -> h_INDIRECT x_34
-| EXT_INDIRECT x_35 -> h_EXT_INDIRECT x_35
-| REGISTER x_36 -> h_REGISTER x_36
+| DIRECT x_1001 -> h_DIRECT x_1001
+| INDIRECT x_1002 -> h_INDIRECT x_1002
+| EXT_INDIRECT x_1003 -> h_EXT_INDIRECT x_1003
+| REGISTER x_1004 -> h_REGISTER x_1004
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_37 -> h_DATA x_37
-| DATA16 x_38 -> h_DATA16 x_38
+| DATA x_1005 -> h_DATA x_1005
+| DATA16 x_1006 -> h_DATA16 x_1006
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -127 +127 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_39 -> h_BIT_ADDR x_39
-| N_BIT_ADDR x_40 -> h_N_BIT_ADDR x_40
-| RELATIVE x_41 -> h_RELATIVE x_41
-| ADDR11 x_42 -> h_ADDR11 x_42
-| ADDR16 x_43 -> h_ADDR16 x_43
+| BIT_ADDR x_1007 -> h_BIT_ADDR x_1007
+| N_BIT_ADDR x_1008 -> h_N_BIT_ADDR x_1008
+| RELATIVE x_1009 -> h_RELATIVE x_1009
+| ADDR11 x_1010 -> h_ADDR11 x_1010
+| ADDR16 x_1011 -> h_ADDR16 x_1011
 
 (** val addressing_mode_rect_Type5 :
@@ -141 +141 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type5 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_64 -> h_DIRECT x_64
-| INDIRECT x_65 -> h_INDIRECT x_65
-| EXT_INDIRECT x_66 -> h_EXT_INDIRECT x_66
-| REGISTER x_67 -> h_REGISTER x_67
+| DIRECT x_1032 -> h_DIRECT x_1032
+| INDIRECT x_1033 -> h_INDIRECT x_1033
+| EXT_INDIRECT x_1034 -> h_EXT_INDIRECT x_1034
+| REGISTER x_1035 -> h_REGISTER x_1035
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_68 -> h_DATA x_68
-| DATA16 x_69 -> h_DATA16 x_69
+| DATA x_1036 -> h_DATA x_1036
+| DATA16 x_1037 -> h_DATA16 x_1037
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -155 +155 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_70 -> h_BIT_ADDR x_70
-| N_BIT_ADDR x_71 -> h_N_BIT_ADDR x_71
-| RELATIVE x_72 -> h_RELATIVE x_72
-| ADDR11 x_73 -> h_ADDR11 x_73
-| ADDR16 x_74 -> h_ADDR16 x_74
+| BIT_ADDR x_1038 -> h_BIT_ADDR x_1038
+| N_BIT_ADDR x_1039 -> h_N_BIT_ADDR x_1039
+| RELATIVE x_1040 -> h_RELATIVE x_1040
+| ADDR11 x_1041 -> h_ADDR11 x_1041
+| ADDR16 x_1042 -> h_ADDR16 x_1042
 
 (** val addressing_mode_rect_Type3 :
@@ -169 +169 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type3 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_95 -> h_DIRECT x_95
-| INDIRECT x_96 -> h_INDIRECT x_96
-| EXT_INDIRECT x_97 -> h_EXT_INDIRECT x_97
-| REGISTER x_98 -> h_REGISTER x_98
+| DIRECT x_1063 -> h_DIRECT x_1063
+| INDIRECT x_1064 -> h_INDIRECT x_1064
+| EXT_INDIRECT x_1065 -> h_EXT_INDIRECT x_1065
+| REGISTER x_1066 -> h_REGISTER x_1066
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_99 -> h_DATA x_99
-| DATA16 x_100 -> h_DATA16 x_100
+| DATA x_1067 -> h_DATA x_1067
+| DATA16 x_1068 -> h_DATA16 x_1068
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -183 +183 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_101 -> h_BIT_ADDR x_101
-| N_BIT_ADDR x_102 -> h_N_BIT_ADDR x_102
-| RELATIVE x_103 -> h_RELATIVE x_103
-| ADDR11 x_104 -> h_ADDR11 x_104
-| ADDR16 x_105 -> h_ADDR16 x_105
+| BIT_ADDR x_1069 -> h_BIT_ADDR x_1069
+| N_BIT_ADDR x_1070 -> h_N_BIT_ADDR x_1070
+| RELATIVE x_1071 -> h_RELATIVE x_1071
+| ADDR11 x_1072 -> h_ADDR11 x_1072
+| ADDR16 x_1073 -> h_ADDR16 x_1073
 
 (** val addressing_mode_rect_Type2 :
@@ -197 +197 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type2 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_126 -> h_DIRECT x_126
-| INDIRECT x_127 -> h_INDIRECT x_127
-| EXT_INDIRECT x_128 -> h_EXT_INDIRECT x_128
-| REGISTER x_129 -> h_REGISTER x_129
+| DIRECT x_1094 -> h_DIRECT x_1094
+| INDIRECT x_1095 -> h_INDIRECT x_1095
+| EXT_INDIRECT x_1096 -> h_EXT_INDIRECT x_1096
+| REGISTER x_1097 -> h_REGISTER x_1097
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_130 -> h_DATA x_130
-| DATA16 x_131 -> h_DATA16 x_131
+| DATA x_1098 -> h_DATA x_1098
+| DATA16 x_1099 -> h_DATA16 x_1099
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -211 +211 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_132 -> h_BIT_ADDR x_132
-| N_BIT_ADDR x_133 -> h_N_BIT_ADDR x_133
-| RELATIVE x_134 -> h_RELATIVE x_134
-| ADDR11 x_135 -> h_ADDR11 x_135
-| ADDR16 x_136 -> h_ADDR16 x_136
+| BIT_ADDR x_1100 -> h_BIT_ADDR x_1100
+| N_BIT_ADDR x_1101 -> h_N_BIT_ADDR x_1101
+| RELATIVE x_1102 -> h_RELATIVE x_1102
+| ADDR11 x_1103 -> h_ADDR11 x_1103
+| ADDR16 x_1104 -> h_ADDR16 x_1104
 
 (** val addressing_mode_rect_Type1 :
@@ -225 +225 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type1 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_157 -> h_DIRECT x_157
-| INDIRECT x_158 -> h_INDIRECT x_158
-| EXT_INDIRECT x_159 -> h_EXT_INDIRECT x_159
-| REGISTER x_160 -> h_REGISTER x_160
+| DIRECT x_1125 -> h_DIRECT x_1125
+| INDIRECT x_1126 -> h_INDIRECT x_1126
+| EXT_INDIRECT x_1127 -> h_EXT_INDIRECT x_1127
+| REGISTER x_1128 -> h_REGISTER x_1128
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_161 -> h_DATA x_161
-| DATA16 x_162 -> h_DATA16 x_162
+| DATA x_1129 -> h_DATA x_1129
+| DATA16 x_1130 -> h_DATA16 x_1130
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -239 +239 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_163 -> h_BIT_ADDR x_163
-| N_BIT_ADDR x_164 -> h_N_BIT_ADDR x_164
-| RELATIVE x_165 -> h_RELATIVE x_165
-| ADDR11 x_166 -> h_ADDR11 x_166
-| ADDR16 x_167 -> h_ADDR16 x_167
+| BIT_ADDR x_1131 -> h_BIT_ADDR x_1131
+| N_BIT_ADDR x_1132 -> h_N_BIT_ADDR x_1132
+| RELATIVE x_1133 -> h_RELATIVE x_1133
+| ADDR11 x_1134 -> h_ADDR11 x_1134
+| ADDR16 x_1135 -> h_ADDR16 x_1135
 
 (** val addressing_mode_rect_Type0 :
@@ -253 +253 @@
     -> 'a1) -> addressing_mode -> 'a1 **)
 let rec addressing_mode_rect_Type0 h_DIRECT h_INDIRECT h_EXT_INDIRECT h_REGISTER h_ACC_A h_ACC_B h_DPTR h_DATA h_DATA16 h_ACC_DPTR h_ACC_PC h_EXT_INDIRECT_DPTR h_INDIRECT_DPTR h_CARRY h_BIT_ADDR h_N_BIT_ADDR h_RELATIVE h_ADDR11 h_ADDR16 = function
-| DIRECT x_188 -> h_DIRECT x_188
-| INDIRECT x_189 -> h_INDIRECT x_189
-| EXT_INDIRECT x_190 -> h_EXT_INDIRECT x_190
-| REGISTER x_191 -> h_REGISTER x_191
+| DIRECT x_1156 -> h_DIRECT x_1156
+| INDIRECT x_1157 -> h_INDIRECT x_1157
+| EXT_INDIRECT x_1158 -> h_EXT_INDIRECT x_1158
+| REGISTER x_1159 -> h_REGISTER x_1159
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_192 -> h_DATA x_192
-| DATA16 x_193 -> h_DATA16 x_193
+| DATA x_1160 -> h_DATA x_1160
+| DATA16 x_1161 -> h_DATA16 x_1161
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -267 +267 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_194 -> h_BIT_ADDR x_194
-| N_BIT_ADDR x_195 -> h_N_BIT_ADDR x_195
-| RELATIVE x_196 -> h_RELATIVE x_196
-| ADDR11 x_197 -> h_ADDR11 x_197
-| ADDR16 x_198 -> h_ADDR16 x_198
+| BIT_ADDR x_1162 -> h_BIT_ADDR x_1162
+| N_BIT_ADDR x_1163 -> h_N_BIT_ADDR x_1163
+| RELATIVE x_1164 -> h_RELATIVE x_1164
+| ADDR11 x_1165 -> h_ADDR11 x_1165
+| ADDR16 x_1166 -> h_ADDR16 x_1166
 
 (** val addressing_mode_inv_rect_Type4 :
@@ -1926 +1926 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type4 n l h_mk_subaddressing_mode x_666 =
-  let subaddressing_modeel = x_666 in
+let rec subaddressing_mode_rect_Type4 n l h_mk_subaddressing_mode x_1634 =
+  let subaddressing_modeel = x_1634 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -1933 +1933 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type5 n l h_mk_subaddressing_mode x_668 =
-  let subaddressing_modeel = x_668 in
+let rec subaddressing_mode_rect_Type5 n l h_mk_subaddressing_mode x_1636 =
+  let subaddressing_modeel = x_1636 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -1940 +1940 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type3 n l h_mk_subaddressing_mode x_670 =
-  let subaddressing_modeel = x_670 in
+let rec subaddressing_mode_rect_Type3 n l h_mk_subaddressing_mode x_1638 =
+  let subaddressing_modeel = x_1638 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -1947 +1947 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type2 n l h_mk_subaddressing_mode x_672 =
-  let subaddressing_modeel = x_672 in
+let rec subaddressing_mode_rect_Type2 n l h_mk_subaddressing_mode x_1640 =
+  let subaddressing_modeel = x_1640 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -1954 +1954 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type1 n l h_mk_subaddressing_mode x_674 =
-  let subaddressing_modeel = x_674 in
+let rec subaddressing_mode_rect_Type1 n l h_mk_subaddressing_mode x_1642 =
+  let subaddressing_modeel = x_1642 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -1961 +1961 @@
     Nat.nat -> addressing_mode_tag Vector.vector -> (addressing_mode -> __ ->
     'a1) -> subaddressing_mode -> 'a1 **)
-let rec subaddressing_mode_rect_Type0 n l h_mk_subaddressing_mode x_676 =
-  let subaddressing_modeel = x_676 in
+let rec subaddressing_mode_rect_Type0 n l h_mk_subaddressing_mode x_1644 =
+  let subaddressing_modeel = x_1644 in
   h_mk_subaddressing_mode subaddressing_modeel __
 
@@ -2288 +2288 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type4 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_778, x_777) -> h_ADD x_778 x_777
-| ADDC (x_780, x_779) -> h_ADDC x_780 x_779
-| SUBB (x_782, x_781) -> h_SUBB x_782 x_781
-| INC x_783 -> h_INC x_783
-| DEC x_784 -> h_DEC x_784
-| MUL (x_786, x_785) -> h_MUL x_786 x_785
-| DIV (x_788, x_787) -> h_DIV x_788 x_787
-| DA x_789 -> h_DA x_789
-| JC x_790 -> h_JC x_790
-| JNC x_791 -> h_JNC x_791
-| JB (x_793, x_792) -> h_JB x_793 x_792
-| JNB (x_795, x_794) -> h_JNB x_795 x_794
-| JBC (x_797, x_796) -> h_JBC x_797 x_796
-| JZ x_798 -> h_JZ x_798
-| JNZ x_799 -> h_JNZ x_799
-| CJNE (x_801, x_800) -> h_CJNE x_801 x_800
-| DJNZ (x_803, x_802) -> h_DJNZ x_803 x_802
-| ANL x_804 -> h_ANL x_804
-| ORL x_805 -> h_ORL x_805
-| XRL x_806 -> h_XRL x_806
-| CLR x_807 -> h_CLR x_807
-| CPL x_808 -> h_CPL x_808
-| RL x_809 -> h_RL x_809
-| RLC x_810 -> h_RLC x_810
-| RR x_811 -> h_RR x_811
-| RRC x_812 -> h_RRC x_812
-| SWAP x_813 -> h_SWAP x_813
-| MOV x_814 -> h_MOV x_814
-| MOVX x_815 -> h_MOVX x_815
-| SETB x_816 -> h_SETB x_816
-| PUSH x_817 -> h_PUSH x_817
-| POP x_818 -> h_POP x_818
-| XCH (x_820, x_819) -> h_XCH x_820 x_819
-| XCHD (x_822, x_821) -> h_XCHD x_822 x_821
+| ADD (x_1746, x_1745) -> h_ADD x_1746 x_1745
+| ADDC (x_1748, x_1747) -> h_ADDC x_1748 x_1747
+| SUBB (x_1750, x_1749) -> h_SUBB x_1750 x_1749
+| INC x_1751 -> h_INC x_1751
+| DEC x_1752 -> h_DEC x_1752
+| MUL (x_1754, x_1753) -> h_MUL x_1754 x_1753
+| DIV (x_1756, x_1755) -> h_DIV x_1756 x_1755
+| DA x_1757 -> h_DA x_1757
+| JC x_1758 -> h_JC x_1758
+| JNC x_1759 -> h_JNC x_1759
+| JB (x_1761, x_1760) -> h_JB x_1761 x_1760
+| JNB (x_1763, x_1762) -> h_JNB x_1763 x_1762
+| JBC (x_1765, x_1764) -> h_JBC x_1765 x_1764
+| JZ x_1766 -> h_JZ x_1766
+| JNZ x_1767 -> h_JNZ x_1767
+| CJNE (x_1769, x_1768) -> h_CJNE x_1769 x_1768
+| DJNZ (x_1771, x_1770) -> h_DJNZ x_1771 x_1770
+| ANL x_1772 -> h_ANL x_1772
+| ORL x_1773 -> h_ORL x_1773
+| XRL x_1774 -> h_XRL x_1774
+| CLR x_1775 -> h_CLR x_1775
+| CPL x_1776 -> h_CPL x_1776
+| RL x_1777 -> h_RL x_1777
+| RLC x_1778 -> h_RLC x_1778
+| RR x_1779 -> h_RR x_1779
+| RRC x_1780 -> h_RRC x_1780
+| SWAP x_1781 -> h_SWAP x_1781
+| MOV x_1782 -> h_MOV x_1782
+| MOVX x_1783 -> h_MOVX x_1783
+| SETB x_1784 -> h_SETB x_1784
+| PUSH x_1785 -> h_PUSH x_1785
+| POP x_1786 -> h_POP x_1786
+| XCH (x_1788, x_1787) -> h_XCH x_1788 x_1787
+| XCHD (x_1790, x_1789) -> h_XCHD x_1790 x_1789
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_823 -> h_JMP x_823
+| JMP x_1791 -> h_JMP x_1791
 
 (** val preinstruction_rect_Type5 :
@@ -2363 +2363 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type5 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_864, x_863) -> h_ADD x_864 x_863
-| ADDC (x_866, x_865) -> h_ADDC x_866 x_865
-| SUBB (x_868, x_867) -> h_SUBB x_868 x_867
-| INC x_869 -> h_INC x_869
-| DEC x_870 -> h_DEC x_870
-| MUL (x_872, x_871) -> h_MUL x_872 x_871
-| DIV (x_874, x_873) -> h_DIV x_874 x_873
-| DA x_875 -> h_DA x_875
-| JC x_876 -> h_JC x_876
-| JNC x_877 -> h_JNC x_877
-| JB (x_879, x_878) -> h_JB x_879 x_878
-| JNB (x_881, x_880) -> h_JNB x_881 x_880
-| JBC (x_883, x_882) -> h_JBC x_883 x_882
-| JZ x_884 -> h_JZ x_884
-| JNZ x_885 -> h_JNZ x_885
-| CJNE (x_887, x_886) -> h_CJNE x_887 x_886
-| DJNZ (x_889, x_888) -> h_DJNZ x_889 x_888
-| ANL x_890 -> h_ANL x_890
-| ORL x_891 -> h_ORL x_891
-| XRL x_892 -> h_XRL x_892
-| CLR x_893 -> h_CLR x_893
-| CPL x_894 -> h_CPL x_894
-| RL x_895 -> h_RL x_895
-| RLC x_896 -> h_RLC x_896
-| RR x_897 -> h_RR x_897
-| RRC x_898 -> h_RRC x_898
-| SWAP x_899 -> h_SWAP x_899
-| MOV x_900 -> h_MOV x_900
-| MOVX x_901 -> h_MOVX x_901
-| SETB x_902 -> h_SETB x_902
-| PUSH x_903 -> h_PUSH x_903
-| POP x_904 -> h_POP x_904
-| XCH (x_906, x_905) -> h_XCH x_906 x_905
-| XCHD (x_908, x_907) -> h_XCHD x_908 x_907
+| ADD (x_1832, x_1831) -> h_ADD x_1832 x_1831
+| ADDC (x_1834, x_1833) -> h_ADDC x_1834 x_1833
+| SUBB (x_1836, x_1835) -> h_SUBB x_1836 x_1835
+| INC x_1837 -> h_INC x_1837
+| DEC x_1838 -> h_DEC x_1838
+| MUL (x_1840, x_1839) -> h_MUL x_1840 x_1839
+| DIV (x_1842, x_1841) -> h_DIV x_1842 x_1841
+| DA x_1843 -> h_DA x_1843
+| JC x_1844 -> h_JC x_1844
+| JNC x_1845 -> h_JNC x_1845
+| JB (x_1847, x_1846) -> h_JB x_1847 x_1846
+| JNB (x_1849, x_1848) -> h_JNB x_1849 x_1848
+| JBC (x_1851, x_1850) -> h_JBC x_1851 x_1850
+| JZ x_1852 -> h_JZ x_1852
+| JNZ x_1853 -> h_JNZ x_1853
+| CJNE (x_1855, x_1854) -> h_CJNE x_1855 x_1854
+| DJNZ (x_1857, x_1856) -> h_DJNZ x_1857 x_1856
+| ANL x_1858 -> h_ANL x_1858
+| ORL x_1859 -> h_ORL x_1859
+| XRL x_1860 -> h_XRL x_1860
+| CLR x_1861 -> h_CLR x_1861
+| CPL x_1862 -> h_CPL x_1862
+| RL x_1863 -> h_RL x_1863
+| RLC x_1864 -> h_RLC x_1864
+| RR x_1865 -> h_RR x_1865
+| RRC x_1866 -> h_RRC x_1866
+| SWAP x_1867 -> h_SWAP x_1867
+| MOV x_1868 -> h_MOV x_1868
+| MOVX x_1869 -> h_MOVX x_1869
+| SETB x_1870 -> h_SETB x_1870
+| PUSH x_1871 -> h_PUSH x_1871
+| POP x_1872 -> h_POP x_1872
+| XCH (x_1874, x_1873) -> h_XCH x_1874 x_1873
+| XCHD (x_1876, x_1875) -> h_XCHD x_1876 x_1875
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_909 -> h_JMP x_909
+| JMP x_1877 -> h_JMP x_1877
 
 (** val preinstruction_rect_Type3 :
@@ -2438 +2438 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type3 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_950, x_949) -> h_ADD x_950 x_949
-| ADDC (x_952, x_951) -> h_ADDC x_952 x_951
-| SUBB (x_954, x_953) -> h_SUBB x_954 x_953
-| INC x_955 -> h_INC x_955
-| DEC x_956 -> h_DEC x_956
-| MUL (x_958, x_957) -> h_MUL x_958 x_957
-| DIV (x_960, x_959) -> h_DIV x_960 x_959
-| DA x_961 -> h_DA x_961
-| JC x_962 -> h_JC x_962
-| JNC x_963 -> h_JNC x_963
-| JB (x_965, x_964) -> h_JB x_965 x_964
-| JNB (x_967, x_966) -> h_JNB x_967 x_966
-| JBC (x_969, x_968) -> h_JBC x_969 x_968
-| JZ x_970 -> h_JZ x_970
-| JNZ x_971 -> h_JNZ x_971
-| CJNE (x_973, x_972) -> h_CJNE x_973 x_972
-| DJNZ (x_975, x_974) -> h_DJNZ x_975 x_974
-| ANL x_976 -> h_ANL x_976
-| ORL x_977 -> h_ORL x_977
-| XRL x_978 -> h_XRL x_978
-| CLR x_979 -> h_CLR x_979
-| CPL x_980 -> h_CPL x_980
-| RL x_981 -> h_RL x_981
-| RLC x_982 -> h_RLC x_982
-| RR x_983 -> h_RR x_983
-| RRC x_984 -> h_RRC x_984
-| SWAP x_985 -> h_SWAP x_985
-| MOV x_986 -> h_MOV x_986
-| MOVX x_987 -> h_MOVX x_987
-| SETB x_988 -> h_SETB x_988
-| PUSH x_989 -> h_PUSH x_989
-| POP x_990 -> h_POP x_990
-| XCH (x_992, x_991) -> h_XCH x_992 x_991
-| XCHD (x_994, x_993) -> h_XCHD x_994 x_993
+| ADD (x_1918, x_1917) -> h_ADD x_1918 x_1917
+| ADDC (x_1920, x_1919) -> h_ADDC x_1920 x_1919
+| SUBB (x_1922, x_1921) -> h_SUBB x_1922 x_1921
+| INC x_1923 -> h_INC x_1923
+| DEC x_1924 -> h_DEC x_1924
+| MUL (x_1926, x_1925) -> h_MUL x_1926 x_1925
+| DIV (x_1928, x_1927) -> h_DIV x_1928 x_1927
+| DA x_1929 -> h_DA x_1929
+| JC x_1930 -> h_JC x_1930
+| JNC x_1931 -> h_JNC x_1931
+| JB (x_1933, x_1932) -> h_JB x_1933 x_1932
+| JNB (x_1935, x_1934) -> h_JNB x_1935 x_1934
+| JBC (x_1937, x_1936) -> h_JBC x_1937 x_1936
+| JZ x_1938 -> h_JZ x_1938
+| JNZ x_1939 -> h_JNZ x_1939
+| CJNE (x_1941, x_1940) -> h_CJNE x_1941 x_1940
+| DJNZ (x_1943, x_1942) -> h_DJNZ x_1943 x_1942
+| ANL x_1944 -> h_ANL x_1944
+| ORL x_1945 -> h_ORL x_1945
+| XRL x_1946 -> h_XRL x_1946
+| CLR x_1947 -> h_CLR x_1947
+| CPL x_1948 -> h_CPL x_1948
+| RL x_1949 -> h_RL x_1949
+| RLC x_1950 -> h_RLC x_1950
+| RR x_1951 -> h_RR x_1951
+| RRC x_1952 -> h_RRC x_1952
+| SWAP x_1953 -> h_SWAP x_1953
+| MOV x_1954 -> h_MOV x_1954
+| MOVX x_1955 -> h_MOVX x_1955
+| SETB x_1956 -> h_SETB x_1956
+| PUSH x_1957 -> h_PUSH x_1957
+| POP x_1958 -> h_POP x_1958
+| XCH (x_1960, x_1959) -> h_XCH x_1960 x_1959
+| XCHD (x_1962, x_1961) -> h_XCHD x_1962 x_1961
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_995 -> h_JMP x_995
+| JMP x_1963 -> h_JMP x_1963
 
 (** val preinstruction_rect_Type2 :
@@ -2513 +2513 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type2 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_1036, x_1035) -> h_ADD x_1036 x_1035
-| ADDC (x_1038, x_1037) -> h_ADDC x_1038 x_1037
-| SUBB (x_1040, x_1039) -> h_SUBB x_1040 x_1039
-| INC x_1041 -> h_INC x_1041
-| DEC x_1042 -> h_DEC x_1042
-| MUL (x_1044, x_1043) -> h_MUL x_1044 x_1043
-| DIV (x_1046, x_1045) -> h_DIV x_1046 x_1045
-| DA x_1047 -> h_DA x_1047
-| JC x_1048 -> h_JC x_1048
-| JNC x_1049 -> h_JNC x_1049
-| JB (x_1051, x_1050) -> h_JB x_1051 x_1050
-| JNB (x_1053, x_1052) -> h_JNB x_1053 x_1052
-| JBC (x_1055, x_1054) -> h_JBC x_1055 x_1054
-| JZ x_1056 -> h_JZ x_1056
-| JNZ x_1057 -> h_JNZ x_1057
-| CJNE (x_1059, x_1058) -> h_CJNE x_1059 x_1058
-| DJNZ (x_1061, x_1060) -> h_DJNZ x_1061 x_1060
-| ANL x_1062 -> h_ANL x_1062
-| ORL x_1063 -> h_ORL x_1063
-| XRL x_1064 -> h_XRL x_1064
-| CLR x_1065 -> h_CLR x_1065
-| CPL x_1066 -> h_CPL x_1066
-| RL x_1067 -> h_RL x_1067
-| RLC x_1068 -> h_RLC x_1068
-| RR x_1069 -> h_RR x_1069
-| RRC x_1070 -> h_RRC x_1070
-| SWAP x_1071 -> h_SWAP x_1071
-| MOV x_1072 -> h_MOV x_1072
-| MOVX x_1073 -> h_MOVX x_1073
-| SETB x_1074 -> h_SETB x_1074
-| PUSH x_1075 -> h_PUSH x_1075
-| POP x_1076 -> h_POP x_1076
-| XCH (x_1078, x_1077) -> h_XCH x_1078 x_1077
-| XCHD (x_1080, x_1079) -> h_XCHD x_1080 x_1079
+| ADD (x_2004, x_2003) -> h_ADD x_2004 x_2003
+| ADDC (x_2006, x_2005) -> h_ADDC x_2006 x_2005
+| SUBB (x_2008, x_2007) -> h_SUBB x_2008 x_2007
+| INC x_2009 -> h_INC x_2009
+| DEC x_2010 -> h_DEC x_2010
+| MUL (x_2012, x_2011) -> h_MUL x_2012 x_2011
+| DIV (x_2014, x_2013) -> h_DIV x_2014 x_2013
+| DA x_2015 -> h_DA x_2015
+| JC x_2016 -> h_JC x_2016
+| JNC x_2017 -> h_JNC x_2017
+| JB (x_2019, x_2018) -> h_JB x_2019 x_2018
+| JNB (x_2021, x_2020) -> h_JNB x_2021 x_2020
+| JBC (x_2023, x_2022) -> h_JBC x_2023 x_2022
+| JZ x_2024 -> h_JZ x_2024
+| JNZ x_2025 -> h_JNZ x_2025
+| CJNE (x_2027, x_2026) -> h_CJNE x_2027 x_2026
+| DJNZ (x_2029, x_2028) -> h_DJNZ x_2029 x_2028
+| ANL x_2030 -> h_ANL x_2030
+| ORL x_2031 -> h_ORL x_2031
+| XRL x_2032 -> h_XRL x_2032
+| CLR x_2033 -> h_CLR x_2033
+| CPL x_2034 -> h_CPL x_2034
+| RL x_2035 -> h_RL x_2035
+| RLC x_2036 -> h_RLC x_2036
+| RR x_2037 -> h_RR x_2037
+| RRC x_2038 -> h_RRC x_2038
+| SWAP x_2039 -> h_SWAP x_2039
+| MOV x_2040 -> h_MOV x_2040
+| MOVX x_2041 -> h_MOVX x_2041
+| SETB x_2042 -> h_SETB x_2042
+| PUSH x_2043 -> h_PUSH x_2043
+| POP x_2044 -> h_POP x_2044
+| XCH (x_2046, x_2045) -> h_XCH x_2046 x_2045
+| XCHD (x_2048, x_2047) -> h_XCHD x_2048 x_2047
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_1081 -> h_JMP x_1081
+| JMP x_2049 -> h_JMP x_2049
 
 (** val preinstruction_rect_Type1 :
@@ -2588 +2588 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type1 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_1122, x_1121) -> h_ADD x_1122 x_1121
-| ADDC (x_1124, x_1123) -> h_ADDC x_1124 x_1123
-| SUBB (x_1126, x_1125) -> h_SUBB x_1126 x_1125
-| INC x_1127 -> h_INC x_1127
-| DEC x_1128 -> h_DEC x_1128
-| MUL (x_1130, x_1129) -> h_MUL x_1130 x_1129
-| DIV (x_1132, x_1131) -> h_DIV x_1132 x_1131
-| DA x_1133 -> h_DA x_1133
-| JC x_1134 -> h_JC x_1134
-| JNC x_1135 -> h_JNC x_1135
-| JB (x_1137, x_1136) -> h_JB x_1137 x_1136
-| JNB (x_1139, x_1138) -> h_JNB x_1139 x_1138
-| JBC (x_1141, x_1140) -> h_JBC x_1141 x_1140
-| JZ x_1142 -> h_JZ x_1142
-| JNZ x_1143 -> h_JNZ x_1143
-| CJNE (x_1145, x_1144) -> h_CJNE x_1145 x_1144
-| DJNZ (x_1147, x_1146) -> h_DJNZ x_1147 x_1146
-| ANL x_1148 -> h_ANL x_1148
-| ORL x_1149 -> h_ORL x_1149
-| XRL x_1150 -> h_XRL x_1150
-| CLR x_1151 -> h_CLR x_1151
-| CPL x_1152 -> h_CPL x_1152
-| RL x_1153 -> h_RL x_1153
-| RLC x_1154 -> h_RLC x_1154
-| RR x_1155 -> h_RR x_1155
-| RRC x_1156 -> h_RRC x_1156
-| SWAP x_1157 -> h_SWAP x_1157
-| MOV x_1158 -> h_MOV x_1158
-| MOVX x_1159 -> h_MOVX x_1159
-| SETB x_1160 -> h_SETB x_1160
-| PUSH x_1161 -> h_PUSH x_1161
-| POP x_1162 -> h_POP x_1162
-| XCH (x_1164, x_1163) -> h_XCH x_1164 x_1163
-| XCHD (x_1166, x_1165) -> h_XCHD x_1166 x_1165
+| ADD (x_2090, x_2089) -> h_ADD x_2090 x_2089
+| ADDC (x_2092, x_2091) -> h_ADDC x_2092 x_2091
+| SUBB (x_2094, x_2093) -> h_SUBB x_2094 x_2093
+| INC x_2095 -> h_INC x_2095
+| DEC x_2096 -> h_DEC x_2096
+| MUL (x_2098, x_2097) -> h_MUL x_2098 x_2097
+| DIV (x_2100, x_2099) -> h_DIV x_2100 x_2099
+| DA x_2101 -> h_DA x_2101
+| JC x_2102 -> h_JC x_2102
+| JNC x_2103 -> h_JNC x_2103
+| JB (x_2105, x_2104) -> h_JB x_2105 x_2104
+| JNB (x_2107, x_2106) -> h_JNB x_2107 x_2106
+| JBC (x_2109, x_2108) -> h_JBC x_2109 x_2108
+| JZ x_2110 -> h_JZ x_2110
+| JNZ x_2111 -> h_JNZ x_2111
+| CJNE (x_2113, x_2112) -> h_CJNE x_2113 x_2112
+| DJNZ (x_2115, x_2114) -> h_DJNZ x_2115 x_2114
+| ANL x_2116 -> h_ANL x_2116
+| ORL x_2117 -> h_ORL x_2117
+| XRL x_2118 -> h_XRL x_2118
+| CLR x_2119 -> h_CLR x_2119
+| CPL x_2120 -> h_CPL x_2120
+| RL x_2121 -> h_RL x_2121
+| RLC x_2122 -> h_RLC x_2122
+| RR x_2123 -> h_RR x_2123
+| RRC x_2124 -> h_RRC x_2124
+| SWAP x_2125 -> h_SWAP x_2125
+| MOV x_2126 -> h_MOV x_2126
+| MOVX x_2127 -> h_MOVX x_2127
+| SETB x_2128 -> h_SETB x_2128
+| PUSH x_2129 -> h_PUSH x_2129
+| POP x_2130 -> h_POP x_2130
+| XCH (x_2132, x_2131) -> h_XCH x_2132 x_2131
+| XCHD (x_2134, x_2133) -> h_XCHD x_2134 x_2133
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_1167 -> h_JMP x_1167
+| JMP x_2135 -> h_JMP x_2135
 
 (** val preinstruction_rect_Type0 :
@@ -2663 +2663 @@
     'a2 -> 'a2 -> (subaddressing_mode -> 'a2) -> 'a1 preinstruction -> 'a2 **)
 let rec preinstruction_rect_Type0 h_ADD h_ADDC h_SUBB h_INC h_DEC h_MUL h_DIV h_DA h_JC h_JNC h_JB h_JNB h_JBC h_JZ h_JNZ h_CJNE h_DJNZ h_ANL h_ORL h_XRL h_CLR h_CPL h_RL h_RLC h_RR h_RRC h_SWAP h_MOV h_MOVX h_SETB h_PUSH h_POP h_XCH h_XCHD h_RET h_RETI h_NOP h_JMP = function
-| ADD (x_1208, x_1207) -> h_ADD x_1208 x_1207
-| ADDC (x_1210, x_1209) -> h_ADDC x_1210 x_1209
-| SUBB (x_1212, x_1211) -> h_SUBB x_1212 x_1211
-| INC x_1213 -> h_INC x_1213
-| DEC x_1214 -> h_DEC x_1214
-| MUL (x_1216, x_1215) -> h_MUL x_1216 x_1215
-| DIV (x_1218, x_1217) -> h_DIV x_1218 x_1217
-| DA x_1219 -> h_DA x_1219
-| JC x_1220 -> h_JC x_1220
-| JNC x_1221 -> h_JNC x_1221
-| JB (x_1223, x_1222) -> h_JB x_1223 x_1222
-| JNB (x_1225, x_1224) -> h_JNB x_1225 x_1224
-| JBC (x_1227, x_1226) -> h_JBC x_1227 x_1226
-| JZ x_1228 -> h_JZ x_1228
-| JNZ x_1229 -> h_JNZ x_1229
-| CJNE (x_1231, x_1230) -> h_CJNE x_1231 x_1230
-| DJNZ (x_1233, x_1232) -> h_DJNZ x_1233 x_1232
-| ANL x_1234 -> h_ANL x_1234
-| ORL x_1235 -> h_ORL x_1235
-| XRL x_1236 -> h_XRL x_1236
-| CLR x_1237 -> h_CLR x_1237
-| CPL x_1238 -> h_CPL x_1238
-| RL x_1239 -> h_RL x_1239
-| RLC x_1240 -> h_RLC x_1240
-| RR x_1241 -> h_RR x_1241
-| RRC x_1242 -> h_RRC x_1242
-| SWAP x_1243 -> h_SWAP x_1243
-| MOV x_1244 -> h_MOV x_1244
-| MOVX x_1245 -> h_MOVX x_1245
-| SETB x_1246 -> h_SETB x_1246
-| PUSH x_1247 -> h_PUSH x_1247
-| POP x_1248 -> h_POP x_1248
-| XCH (x_1250, x_1249) -> h_XCH x_1250 x_1249
-| XCHD (x_1252, x_1251) -> h_XCHD x_1252 x_1251
+| ADD (x_2176, x_2175) -> h_ADD x_2176 x_2175
+| ADDC (x_2178, x_2177) -> h_ADDC x_2178 x_2177
+| SUBB (x_2180, x_2179) -> h_SUBB x_2180 x_2179
+| INC x_2181 -> h_INC x_2181
+| DEC x_2182 -> h_DEC x_2182
+| MUL (x_2184, x_2183) -> h_MUL x_2184 x_2183
+| DIV (x_2186, x_2185) -> h_DIV x_2186 x_2185
+| DA x_2187 -> h_DA x_2187
+| JC x_2188 -> h_JC x_2188
+| JNC x_2189 -> h_JNC x_2189
+| JB (x_2191, x_2190) -> h_JB x_2191 x_2190
+| JNB (x_2193, x_2192) -> h_JNB x_2193 x_2192
+| JBC (x_2195, x_2194) -> h_JBC x_2195 x_2194
+| JZ x_2196 -> h_JZ x_2196
+| JNZ x_2197 -> h_JNZ x_2197
+| CJNE (x_2199, x_2198) -> h_CJNE x_2199 x_2198
+| DJNZ (x_2201, x_2200) -> h_DJNZ x_2201 x_2200
+| ANL x_2202 -> h_ANL x_2202
+| ORL x_2203 -> h_ORL x_2203
+| XRL x_2204 -> h_XRL x_2204
+| CLR x_2205 -> h_CLR x_2205
+| CPL x_2206 -> h_CPL x_2206
+| RL x_2207 -> h_RL x_2207
+| RLC x_2208 -> h_RLC x_2208
+| RR x_2209 -> h_RR x_2209
+| RRC x_2210 -> h_RRC x_2210
+| SWAP x_2211 -> h_SWAP x_2211
+| MOV x_2212 -> h_MOV x_2212
+| MOVX x_2213 -> h_MOVX x_2213
+| SETB x_2214 -> h_SETB x_2214
+| PUSH x_2215 -> h_PUSH x_2215
+| POP x_2216 -> h_POP x_2216
+| XCH (x_2218, x_2217) -> h_XCH x_2218 x_2217
+| XCHD (x_2220, x_2219) -> h_XCHD x_2220 x_2219
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_1253 -> h_JMP x_1253
+| JMP x_2221 -> h_JMP x_2221
 
 (** val preinstruction_inv_rect_Type4 :
@@ -5104 +5104 @@
     'a1 **)
 let rec instruction_rect_Type4 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1825 -> h_ACALL x_1825
-| LCALL x_1826 -> h_LCALL x_1826
-| AJMP x_1827 -> h_AJMP x_1827
-| LJMP x_1828 -> h_LJMP x_1828
-| SJMP x_1829 -> h_SJMP x_1829
-| MOVC (x_1831, x_1830) -> h_MOVC x_1831 x_1830
-| RealInstruction x_1832 -> h_RealInstruction x_1832
+| ACALL x_2793 -> h_ACALL x_2793
+| LCALL x_2794 -> h_LCALL x_2794
+| AJMP x_2795 -> h_AJMP x_2795
+| LJMP x_2796 -> h_LJMP x_2796
+| SJMP x_2797 -> h_SJMP x_2797
+| MOVC (x_2799, x_2798) -> h_MOVC x_2799 x_2798
+| RealInstruction x_2800 -> h_RealInstruction x_2800
 
 (** val instruction_rect_Type5 :
@@ -5119 +5119 @@
     'a1 **)
 let rec instruction_rect_Type5 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1841 -> h_ACALL x_1841
-| LCALL x_1842 -> h_LCALL x_1842
-| AJMP x_1843 -> h_AJMP x_1843
-| LJMP x_1844 -> h_LJMP x_1844
-| SJMP x_1845 -> h_SJMP x_1845
-| MOVC (x_1847, x_1846) -> h_MOVC x_1847 x_1846
-| RealInstruction x_1848 -> h_RealInstruction x_1848
+| ACALL x_2809 -> h_ACALL x_2809
+| LCALL x_2810 -> h_LCALL x_2810
+| AJMP x_2811 -> h_AJMP x_2811
+| LJMP x_2812 -> h_LJMP x_2812
+| SJMP x_2813 -> h_SJMP x_2813
+| MOVC (x_2815, x_2814) -> h_MOVC x_2815 x_2814
+| RealInstruction x_2816 -> h_RealInstruction x_2816
 
 (** val instruction_rect_Type3 :
@@ -5134 +5134 @@
     'a1 **)
 let rec instruction_rect_Type3 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1857 -> h_ACALL x_1857
-| LCALL x_1858 -> h_LCALL x_1858
-| AJMP x_1859 -> h_AJMP x_1859
-| LJMP x_1860 -> h_LJMP x_1860
-| SJMP x_1861 -> h_SJMP x_1861
-| MOVC (x_1863, x_1862) -> h_MOVC x_1863 x_1862
-| RealInstruction x_1864 -> h_RealInstruction x_1864
+| ACALL x_2825 -> h_ACALL x_2825
+| LCALL x_2826 -> h_LCALL x_2826
+| AJMP x_2827 -> h_AJMP x_2827
+| LJMP x_2828 -> h_LJMP x_2828
+| SJMP x_2829 -> h_SJMP x_2829
+| MOVC (x_2831, x_2830) -> h_MOVC x_2831 x_2830
+| RealInstruction x_2832 -> h_RealInstruction x_2832
 
 (** val instruction_rect_Type2 :
@@ -5149 +5149 @@
     'a1 **)
 let rec instruction_rect_Type2 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1873 -> h_ACALL x_1873
-| LCALL x_1874 -> h_LCALL x_1874
-| AJMP x_1875 -> h_AJMP x_1875
-| LJMP x_1876 -> h_LJMP x_1876
-| SJMP x_1877 -> h_SJMP x_1877
-| MOVC (x_1879, x_1878) -> h_MOVC x_1879 x_1878
-| RealInstruction x_1880 -> h_RealInstruction x_1880
+| ACALL x_2841 -> h_ACALL x_2841
+| LCALL x_2842 -> h_LCALL x_2842
+| AJMP x_2843 -> h_AJMP x_2843
+| LJMP x_2844 -> h_LJMP x_2844
+| SJMP x_2845 -> h_SJMP x_2845
+| MOVC (x_2847, x_2846) -> h_MOVC x_2847 x_2846
+| RealInstruction x_2848 -> h_RealInstruction x_2848
 
 (** val instruction_rect_Type1 :
@@ -5164 +5164 @@
     'a1 **)
 let rec instruction_rect_Type1 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1889 -> h_ACALL x_1889
-| LCALL x_1890 -> h_LCALL x_1890
-| AJMP x_1891 -> h_AJMP x_1891
-| LJMP x_1892 -> h_LJMP x_1892
-| SJMP x_1893 -> h_SJMP x_1893
-| MOVC (x_1895, x_1894) -> h_MOVC x_1895 x_1894
-| RealInstruction x_1896 -> h_RealInstruction x_1896
+| ACALL x_2857 -> h_ACALL x_2857
+| LCALL x_2858 -> h_LCALL x_2858
+| AJMP x_2859 -> h_AJMP x_2859
+| LJMP x_2860 -> h_LJMP x_2860
+| SJMP x_2861 -> h_SJMP x_2861
+| MOVC (x_2863, x_2862) -> h_MOVC x_2863 x_2862
+| RealInstruction x_2864 -> h_RealInstruction x_2864
 
 (** val instruction_rect_Type0 :
@@ -5179 +5179 @@
     'a1 **)
 let rec instruction_rect_Type0 h_ACALL h_LCALL h_AJMP h_LJMP h_SJMP h_MOVC h_RealInstruction = function
-| ACALL x_1905 -> h_ACALL x_1905
-| LCALL x_1906 -> h_LCALL x_1906
-| AJMP x_1907 -> h_AJMP x_1907
-| LJMP x_1908 -> h_LJMP x_1908
-| SJMP x_1909 -> h_SJMP x_1909
-| MOVC (x_1911, x_1910) -> h_MOVC x_1911 x_1910
-| RealInstruction x_1912 -> h_RealInstruction x_1912
+| ACALL x_2873 -> h_ACALL x_2873
+| LCALL x_2874 -> h_LCALL x_2874
+| AJMP x_2875 -> h_AJMP x_2875
+| LJMP x_2876 -> h_LJMP x_2876
+| SJMP x_2877 -> h_SJMP x_2877
+| MOVC (x_2879, x_2878) -> h_MOVC x_2879 x_2878
+| RealInstruction x_2880 -> h_RealInstruction x_2880
 
 (** val instruction_inv_rect_Type4 :
@@ -5476 +5476 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type4 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2078 -> h_Instruction x_2078
-| Comment x_2079 -> h_Comment x_2079
-| Cost x_2080 -> h_Cost x_2080
-| Jmp x_2081 -> h_Jmp x_2081
-| Jnz (x_2084, x_2083, x_2082) -> h_Jnz x_2084 x_2083 x_2082
-| MovSuccessor (x_2087, x_2086, x_2085) ->
-  h_MovSuccessor x_2087 x_2086 x_2085
-| Call x_2088 -> h_Call x_2088
-| Mov (x_2090, x_2089) -> h_Mov x_2090 x_2089
+| Instruction x_3046 -> h_Instruction x_3046
+| Comment x_3047 -> h_Comment x_3047
+| Cost x_3048 -> h_Cost x_3048
+| Jmp x_3049 -> h_Jmp x_3049
+| Jnz (x_3052, x_3051, x_3050) -> h_Jnz x_3052 x_3051 x_3050
+| MovSuccessor (x_3055, x_3054, x_3053) ->
+  h_MovSuccessor x_3055 x_3054 x_3053
+| Call x_3056 -> h_Call x_3056
+| Mov (x_3058, x_3057) -> h_Mov x_3058 x_3057
 
 (** val pseudo_instruction_rect_Type5 :
@@ -5494 +5494 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type5 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2100 -> h_Instruction x_2100
-| Comment x_2101 -> h_Comment x_2101
-| Cost x_2102 -> h_Cost x_2102
-| Jmp x_2103 -> h_Jmp x_2103
-| Jnz (x_2106, x_2105, x_2104) -> h_Jnz x_2106 x_2105 x_2104
-| MovSuccessor (x_2109, x_2108, x_2107) ->
-  h_MovSuccessor x_2109 x_2108 x_2107
-| Call x_2110 -> h_Call x_2110
-| Mov (x_2112, x_2111) -> h_Mov x_2112 x_2111
+| Instruction x_3068 -> h_Instruction x_3068
+| Comment x_3069 -> h_Comment x_3069
+| Cost x_3070 -> h_Cost x_3070
+| Jmp x_3071 -> h_Jmp x_3071
+| Jnz (x_3074, x_3073, x_3072) -> h_Jnz x_3074 x_3073 x_3072
+| MovSuccessor (x_3077, x_3076, x_3075) ->
+  h_MovSuccessor x_3077 x_3076 x_3075
+| Call x_3078 -> h_Call x_3078
+| Mov (x_3080, x_3079) -> h_Mov x_3080 x_3079
 
 (** val pseudo_instruction_rect_Type3 :
@@ -5512 +5512 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type3 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2122 -> h_Instruction x_2122
-| Comment x_2123 -> h_Comment x_2123
-| Cost x_2124 -> h_Cost x_2124
-| Jmp x_2125 -> h_Jmp x_2125
-| Jnz (x_2128, x_2127, x_2126) -> h_Jnz x_2128 x_2127 x_2126
-| MovSuccessor (x_2131, x_2130, x_2129) ->
-  h_MovSuccessor x_2131 x_2130 x_2129
-| Call x_2132 -> h_Call x_2132
-| Mov (x_2134, x_2133) -> h_Mov x_2134 x_2133
+| Instruction x_3090 -> h_Instruction x_3090
+| Comment x_3091 -> h_Comment x_3091
+| Cost x_3092 -> h_Cost x_3092
+| Jmp x_3093 -> h_Jmp x_3093
+| Jnz (x_3096, x_3095, x_3094) -> h_Jnz x_3096 x_3095 x_3094
+| MovSuccessor (x_3099, x_3098, x_3097) ->
+  h_MovSuccessor x_3099 x_3098 x_3097
+| Call x_3100 -> h_Call x_3100
+| Mov (x_3102, x_3101) -> h_Mov x_3102 x_3101
 
 (** val pseudo_instruction_rect_Type2 :
@@ -5530 +5530 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type2 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2144 -> h_Instruction x_2144
-| Comment x_2145 -> h_Comment x_2145
-| Cost x_2146 -> h_Cost x_2146
-| Jmp x_2147 -> h_Jmp x_2147
-| Jnz (x_2150, x_2149, x_2148) -> h_Jnz x_2150 x_2149 x_2148
-| MovSuccessor (x_2153, x_2152, x_2151) ->
-  h_MovSuccessor x_2153 x_2152 x_2151
-| Call x_2154 -> h_Call x_2154
-| Mov (x_2156, x_2155) -> h_Mov x_2156 x_2155
+| Instruction x_3112 -> h_Instruction x_3112
+| Comment x_3113 -> h_Comment x_3113
+| Cost x_3114 -> h_Cost x_3114
+| Jmp x_3115 -> h_Jmp x_3115
+| Jnz (x_3118, x_3117, x_3116) -> h_Jnz x_3118 x_3117 x_3116
+| MovSuccessor (x_3121, x_3120, x_3119) ->
+  h_MovSuccessor x_3121 x_3120 x_3119
+| Call x_3122 -> h_Call x_3122
+| Mov (x_3124, x_3123) -> h_Mov x_3124 x_3123
 
 (** val pseudo_instruction_rect_Type1 :
@@ -5548 +5548 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type1 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2166 -> h_Instruction x_2166
-| Comment x_2167 -> h_Comment x_2167
-| Cost x_2168 -> h_Cost x_2168
-| Jmp x_2169 -> h_Jmp x_2169
-| Jnz (x_2172, x_2171, x_2170) -> h_Jnz x_2172 x_2171 x_2170
-| MovSuccessor (x_2175, x_2174, x_2173) ->
-  h_MovSuccessor x_2175 x_2174 x_2173
-| Call x_2176 -> h_Call x_2176
-| Mov (x_2178, x_2177) -> h_Mov x_2178 x_2177
+| Instruction x_3134 -> h_Instruction x_3134
+| Comment x_3135 -> h_Comment x_3135
+| Cost x_3136 -> h_Cost x_3136
+| Jmp x_3137 -> h_Jmp x_3137
+| Jnz (x_3140, x_3139, x_3138) -> h_Jnz x_3140 x_3139 x_3138
+| MovSuccessor (x_3143, x_3142, x_3141) ->
+  h_MovSuccessor x_3143 x_3142 x_3141
+| Call x_3144 -> h_Call x_3144
+| Mov (x_3146, x_3145) -> h_Mov x_3146 x_3145
 
 (** val pseudo_instruction_rect_Type0 :
@@ -5566 +5566 @@
     -> 'a1 **)
 let rec pseudo_instruction_rect_Type0 h_Instruction h_Comment h_Cost h_Jmp h_Jnz h_MovSuccessor h_Call h_Mov = function
-| Instruction x_2188 -> h_Instruction x_2188
-| Comment x_2189 -> h_Comment x_2189
-| Cost x_2190 -> h_Cost x_2190
-| Jmp x_2191 -> h_Jmp x_2191
-| Jnz (x_2194, x_2193, x_2192) -> h_Jnz x_2194 x_2193 x_2192
-| MovSuccessor (x_2197, x_2196, x_2195) ->
-  h_MovSuccessor x_2197 x_2196 x_2195
-| Call x_2198 -> h_Call x_2198
-| Mov (x_2200, x_2199) -> h_Mov x_2200 x_2199
+| Instruction x_3156 -> h_Instruction x_3156
+| Comment x_3157 -> h_Comment x_3157
+| Cost x_3158 -> h_Cost x_3158
+| Jmp x_3159 -> h_Jmp x_3159
+| Jnz (x_3162, x_3161, x_3160) -> h_Jnz x_3162 x_3161 x_3160
+| MovSuccessor (x_3165, x_3164, x_3163) ->
+  h_MovSuccessor x_3165 x_3164 x_3163
+| Call x_3166 -> h_Call x_3166
+| Mov (x_3168, x_3167) -> h_Mov x_3168 x_3167
 
 (** val pseudo_instruction_inv_rect_Type4 :
@@ -5796 +5796 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type4 h_mk_pseudo_assembly_program x_2343 =
+let rec pseudo_assembly_program_rect_Type4 h_mk_pseudo_assembly_program x_3311 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2343
+    renamed_symbols0; final_label = final_label0 } = x_3311
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5808 +5808 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type5 h_mk_pseudo_assembly_program x_2345 =
+let rec pseudo_assembly_program_rect_Type5 h_mk_pseudo_assembly_program x_3313 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2345
+    renamed_symbols0; final_label = final_label0 } = x_3313
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5820 +5820 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type3 h_mk_pseudo_assembly_program x_2347 =
+let rec pseudo_assembly_program_rect_Type3 h_mk_pseudo_assembly_program x_3315 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2347
+    renamed_symbols0; final_label = final_label0 } = x_3315
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5832 +5832 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type2 h_mk_pseudo_assembly_program x_2349 =
+let rec pseudo_assembly_program_rect_Type2 h_mk_pseudo_assembly_program x_3317 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2349
+    renamed_symbols0; final_label = final_label0 } = x_3317
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5844 +5844 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type1 h_mk_pseudo_assembly_program x_2351 =
+let rec pseudo_assembly_program_rect_Type1 h_mk_pseudo_assembly_program x_3319 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2351
+    renamed_symbols0; final_label = final_label0 } = x_3319
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5856 +5856 @@
     Types.prod List.list -> identifier -> __ -> __ -> 'a1) ->
     pseudo_assembly_program -> 'a1 **)
-let rec pseudo_assembly_program_rect_Type0 h_mk_pseudo_assembly_program x_2353 =
+let rec pseudo_assembly_program_rect_Type0 h_mk_pseudo_assembly_program x_3321 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_2353
+    renamed_symbols0; final_label = final_label0 } = x_3321
   in
   h_mk_pseudo_assembly_program preamble0 code0 __ renamed_symbols0
@@ -5944 +5944 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type4 h_mk_labelled_object_code x_2369 =
+let rec labelled_object_code_rect_Type4 h_mk_labelled_object_code x_3337 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2369
+    final_pc = final_pc0 } = x_3337
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __
@@ -5953 +5953 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type5 h_mk_labelled_object_code x_2371 =
+let rec labelled_object_code_rect_Type5 h_mk_labelled_object_code x_3339 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2371
+    final_pc = final_pc0 } = x_3339
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __
@@ -5962 +5962 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type3 h_mk_labelled_object_code x_2373 =
+let rec labelled_object_code_rect_Type3 h_mk_labelled_object_code x_3341 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2373
+    final_pc = final_pc0 } = x_3341
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __
@@ -5971 +5971 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type2 h_mk_labelled_object_code x_2375 =
+let rec labelled_object_code_rect_Type2 h_mk_labelled_object_code x_3343 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2375
+    final_pc = final_pc0 } = x_3343
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __
@@ -5980 +5980 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type1 h_mk_labelled_object_code x_2377 =
+let rec labelled_object_code_rect_Type1 h_mk_labelled_object_code x_3345 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2377
+    final_pc = final_pc0 } = x_3345
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __
@@ -5989 +5989 @@
     (object_code -> costlabel_map -> symboltable_type -> BitVector.word -> __
     -> 'a1) -> labelled_object_code -> 'a1 **)
-let rec labelled_object_code_rect_Type0 h_mk_labelled_object_code x_2379 =
+let rec labelled_object_code_rect_Type0 h_mk_labelled_object_code x_3347 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_2379
+    final_pc = final_pc0 } = x_3347
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __

extracted/aSMCostsSplit.ml

@@ -124 +124 @@
 let rec traverse_code_internal prog program_counter program_size =
   (match program_size with
-   | 0 -> (fun _ -> Identifiers.empty_map PreIdentifiers.CostTag)
-   | _ -> let program_size' = program_size - 1 in
+   | Nat.O -> (fun _ -> Identifiers.empty_map PreIdentifiers.CostTag)
+   | Nat.S program_size' ->
      (fun _ ->
        let new_program_counter' =
@@ -158 +158 @@
         (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S
         Nat.O)))))))))))))))))
-      (Glue.int_of_matitanat (List.length (ASM.oc prog))))
+      (Exp.exp (Nat.S (Nat.S Nat.O)) (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S
+        (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S
+        (Nat.S Nat.O))))))))))))))))))
 
 (** val compute_costs :

extracted/aSMCostsSplit.mli

@@ -119 +119 @@
 open UtilBranch
 
+val traverse_code_internal :
+  ASM.labelled_object_code -> BitVector.word -> Nat.nat -> Nat.nat
+  Identifiers.identifier_map Types.sig0
+
 val traverse_code :
   ASM.labelled_object_code -> Nat.nat Identifiers.identifier_map Types.sig0

extracted/aST.ml

@@ -418 +418 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type4 h_ASTint h_ASTptr = function
-| ASTint (x_3649, x_3648) -> h_ASTint x_3649 x_3648
+| ASTint (x_411, x_410) -> h_ASTint x_411 x_410
 | ASTptr -> h_ASTptr
 
@@ -424 +424 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type5 h_ASTint h_ASTptr = function
-| ASTint (x_3654, x_3653) -> h_ASTint x_3654 x_3653
+| ASTint (x_416, x_415) -> h_ASTint x_416 x_415
 | ASTptr -> h_ASTptr
 
@@ -430 +430 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type3 h_ASTint h_ASTptr = function
-| ASTint (x_3659, x_3658) -> h_ASTint x_3659 x_3658
+| ASTint (x_421, x_420) -> h_ASTint x_421 x_420
 | ASTptr -> h_ASTptr
 
@@ -436 +436 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type2 h_ASTint h_ASTptr = function
-| ASTint (x_3664, x_3663) -> h_ASTint x_3664 x_3663
+| ASTint (x_426, x_425) -> h_ASTint x_426 x_425
 | ASTptr -> h_ASTptr
 
@@ -442 +442 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type1 h_ASTint h_ASTptr = function
-| ASTint (x_3669, x_3668) -> h_ASTint x_3669 x_3668
+| ASTint (x_431, x_430) -> h_ASTint x_431 x_430
 | ASTptr -> h_ASTptr
 
@@ -448 +448 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type0 h_ASTint h_ASTptr = function
-| ASTint (x_3674, x_3673) -> h_ASTint x_3674 x_3673
+| ASTint (x_436, x_435) -> h_ASTint x_436 x_435
 | ASTptr -> h_ASTptr
 
@@ -877 +877 @@
 (** val signature_rect_Type4 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type4 h_mk_signature x_3709 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3709 in
+let rec signature_rect_Type4 h_mk_signature x_471 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_471 in
   h_mk_signature sig_args0 sig_res0
 
 (** val signature_rect_Type5 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type5 h_mk_signature x_3711 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3711 in
+let rec signature_rect_Type5 h_mk_signature x_473 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_473 in
   h_mk_signature sig_args0 sig_res0
 
 (** val signature_rect_Type3 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type3 h_mk_signature x_3713 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3713 in
+let rec signature_rect_Type3 h_mk_signature x_475 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_475 in
   h_mk_signature sig_args0 sig_res0
 
 (** val signature_rect_Type2 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type2 h_mk_signature x_3715 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3715 in
+let rec signature_rect_Type2 h_mk_signature x_477 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_477 in
   h_mk_signature sig_args0 sig_res0
 
 (** val signature_rect_Type1 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type1 h_mk_signature x_3717 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3717 in
+let rec signature_rect_Type1 h_mk_signature x_479 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_479 in
   h_mk_signature sig_args0 sig_res0
 
 (** val signature_rect_Type0 :
     (typ List.list -> typ Types.option -> 'a1) -> signature -> 'a1 **)
-let rec signature_rect_Type0 h_mk_signature x_3719 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3719 in
+let rec signature_rect_Type0 h_mk_signature x_481 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_481 in
   h_mk_signature sig_args0 sig_res0
 
@@ -984 +984 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type4 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3747 -> h_Init_int8 x_3747
-| Init_int16 x_3748 -> h_Init_int16 x_3748
-| Init_int32 x_3749 -> h_Init_int32 x_3749
-| Init_space x_3750 -> h_Init_space x_3750
+| Init_int8 x_509 -> h_Init_int8 x_509
+| Init_int16 x_510 -> h_Init_int16 x_510
+| Init_int32 x_511 -> h_Init_int32 x_511
+| Init_space x_512 -> h_Init_space x_512
 | Init_null -> h_Init_null
-| Init_addrof (x_3752, x_3751) -> h_Init_addrof x_3752 x_3751
+| Init_addrof (x_514, x_513) -> h_Init_addrof x_514 x_513
 
 (** val init_data_rect_Type5 :
@@ -995 +995 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type5 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3760 -> h_Init_int8 x_3760
-| Init_int16 x_3761 -> h_Init_int16 x_3761
-| Init_int32 x_3762 -> h_Init_int32 x_3762
-| Init_space x_3763 -> h_Init_space x_3763
+| Init_int8 x_522 -> h_Init_int8 x_522
+| Init_int16 x_523 -> h_Init_int16 x_523
+| Init_int32 x_524 -> h_Init_int32 x_524
+| Init_space x_525 -> h_Init_space x_525
 | Init_null -> h_Init_null
-| Init_addrof (x_3765, x_3764) -> h_Init_addrof x_3765 x_3764
+| Init_addrof (x_527, x_526) -> h_Init_addrof x_527 x_526
 
 (** val init_data_rect_Type3 :
@@ -1006 +1006 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type3 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3773 -> h_Init_int8 x_3773
-| Init_int16 x_3774 -> h_Init_int16 x_3774
-| Init_int32 x_3775 -> h_Init_int32 x_3775
-| Init_space x_3776 -> h_Init_space x_3776
+| Init_int8 x_535 -> h_Init_int8 x_535
+| Init_int16 x_536 -> h_Init_int16 x_536
+| Init_int32 x_537 -> h_Init_int32 x_537
+| Init_space x_538 -> h_Init_space x_538
 | Init_null -> h_Init_null
-| Init_addrof (x_3778, x_3777) -> h_Init_addrof x_3778 x_3777
+| Init_addrof (x_540, x_539) -> h_Init_addrof x_540 x_539
 
 (** val init_data_rect_Type2 :
@@ -1017 +1017 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type2 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3786 -> h_Init_int8 x_3786
-| Init_int16 x_3787 -> h_Init_int16 x_3787
-| Init_int32 x_3788 -> h_Init_int32 x_3788
-| Init_space x_3789 -> h_Init_space x_3789
+| Init_int8 x_548 -> h_Init_int8 x_548
+| Init_int16 x_549 -> h_Init_int16 x_549
+| Init_int32 x_550 -> h_Init_int32 x_550
+| Init_space x_551 -> h_Init_space x_551
 | Init_null -> h_Init_null
-| Init_addrof (x_3791, x_3790) -> h_Init_addrof x_3791 x_3790
+| Init_addrof (x_553, x_552) -> h_Init_addrof x_553 x_552
 
 (** val init_data_rect_Type1 :
@@ -1028 +1028 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type1 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3799 -> h_Init_int8 x_3799
-| Init_int16 x_3800 -> h_Init_int16 x_3800
-| Init_int32 x_3801 -> h_Init_int32 x_3801
-| Init_space x_3802 -> h_Init_space x_3802
+| Init_int8 x_561 -> h_Init_int8 x_561
+| Init_int16 x_562 -> h_Init_int16 x_562
+| Init_int32 x_563 -> h_Init_int32 x_563
+| Init_space x_564 -> h_Init_space x_564
 | Init_null -> h_Init_null
-| Init_addrof (x_3804, x_3803) -> h_Init_addrof x_3804 x_3803
+| Init_addrof (x_566, x_565) -> h_Init_addrof x_566 x_565
 
 (** val init_data_rect_Type0 :
@@ -1039 +1039 @@
     'a1 -> (ident -> Nat.nat -> 'a1) -> init_data -> 'a1 **)
 let rec init_data_rect_Type0 h_Init_int8 h_Init_int16 h_Init_int32 h_Init_space h_Init_null h_Init_addrof = function
-| Init_int8 x_3812 -> h_Init_int8 x_3812
-| Init_int16 x_3813 -> h_Init_int16 x_3813
-| Init_int32 x_3814 -> h_Init_int32 x_3814
-| Init_space x_3815 -> h_Init_space x_3815
+| Init_int8 x_574 -> h_Init_int8 x_574
+| Init_int16 x_575 -> h_Init_int16 x_575
+| Init_int32 x_576 -> h_Init_int32 x_576
+| Init_space x_577 -> h_Init_space x_577
 | Init_null -> h_Init_null
-| Init_addrof (x_3817, x_3816) -> h_Init_addrof x_3817 x_3816
+| Init_addrof (x_579, x_578) -> h_Init_addrof x_579 x_578
 
 (** val init_data_inv_rect_Type4 :
@@ -1111 +1111 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type4 h_mk_program x_3904 =
+let rec program_rect_Type4 h_mk_program x_666 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3904
+    prog_main0 } = x_666
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1120 +1120 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type5 h_mk_program x_3906 =
+let rec program_rect_Type5 h_mk_program x_668 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3906
+    prog_main0 } = x_668
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1129 +1129 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type3 h_mk_program x_3908 =
+let rec program_rect_Type3 h_mk_program x_670 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3908
+    prog_main0 } = x_670
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1138 +1138 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type2 h_mk_program x_3910 =
+let rec program_rect_Type2 h_mk_program x_672 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3910
+    prog_main0 } = x_672
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1147 +1147 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type1 h_mk_program x_3912 =
+let rec program_rect_Type1 h_mk_program x_674 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3912
+    prog_main0 } = x_674
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1156 +1156 @@
     (((ident, region) Types.prod, 'a2) Types.prod List.list -> (ident, 'a1)
     Types.prod List.list -> ident -> 'a3) -> ('a1, 'a2) program -> 'a3 **)
-let rec program_rect_Type0 h_mk_program x_3914 =
+let rec program_rect_Type0 h_mk_program x_676 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3914
+    prog_main0 } = x_676
   in
   h_mk_program prog_vars0 prog_funct0 prog_main0
@@ -1477 +1477 @@
 (** val external_function_rect_Type4 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type4 h_mk_external_function x_4118 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4118 in
+let rec external_function_rect_Type4 h_mk_external_function x_880 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_880 in
   h_mk_external_function ef_id0 ef_sig0
 
 (** val external_function_rect_Type5 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type5 h_mk_external_function x_4120 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4120 in
+let rec external_function_rect_Type5 h_mk_external_function x_882 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_882 in
   h_mk_external_function ef_id0 ef_sig0
 
 (** val external_function_rect_Type3 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type3 h_mk_external_function x_4122 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4122 in
+let rec external_function_rect_Type3 h_mk_external_function x_884 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_884 in
   h_mk_external_function ef_id0 ef_sig0
 
 (** val external_function_rect_Type2 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type2 h_mk_external_function x_4124 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4124 in
+let rec external_function_rect_Type2 h_mk_external_function x_886 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_886 in
   h_mk_external_function ef_id0 ef_sig0
 
 (** val external_function_rect_Type1 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type1 h_mk_external_function x_4126 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4126 in
+let rec external_function_rect_Type1 h_mk_external_function x_888 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_888 in
   h_mk_external_function ef_id0 ef_sig0
 
 (** val external_function_rect_Type0 :
     (ident -> signature -> 'a1) -> external_function -> 'a1 **)
-let rec external_function_rect_Type0 h_mk_external_function x_4128 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4128 in
+let rec external_function_rect_Type0 h_mk_external_function x_890 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_890 in
   h_mk_external_function ef_id0 ef_sig0
 
@@ -1575 +1575 @@
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type4 h_Internal h_External = function
-| Internal x_4148 -> h_Internal x_4148
-| External x_4149 -> h_External x_4149
+| Internal x_910 -> h_Internal x_910
+| External x_911 -> h_External x_911
 
 (** val fundef_rect_Type5 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type5 h_Internal h_External = function
-| Internal x_4153 -> h_Internal x_4153
-| External x_4154 -> h_External x_4154
+| Internal x_915 -> h_Internal x_915
+| External x_916 -> h_External x_916
 
 (** val fundef_rect_Type3 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type3 h_Internal h_External = function
-| Internal x_4158 -> h_Internal x_4158
-| External x_4159 -> h_External x_4159
+| Internal x_920 -> h_Internal x_920
+| External x_921 -> h_External x_921
 
 (** val fundef_rect_Type2 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type2 h_Internal h_External = function
-| Internal x_4163 -> h_Internal x_4163
-| External x_4164 -> h_External x_4164
+| Internal x_925 -> h_Internal x_925
+| External x_926 -> h_External x_926
 
 (** val fundef_rect_Type1 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type1 h_Internal h_External = function
-| Internal x_4168 -> h_Internal x_4168
-| External x_4169 -> h_External x_4169
+| Internal x_930 -> h_Internal x_930
+| External x_931 -> h_External x_931
 
 (** val fundef_rect_Type0 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type0 h_Internal h_External = function
-| Internal x_4173 -> h_Internal x_4173
-| External x_4174 -> h_External x_4174
+| Internal x_935 -> h_Internal x_935
+| External x_936 -> h_External x_936
 
 (** val fundef_inv_rect_Type4 :

extracted/byteValues.ml

@@ -89 +89 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type4 h_mk_program_counter x_6139 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6139 in
+let rec program_counter_rect_Type4 h_mk_program_counter x_6088 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6088 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -96 +96 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type5 h_mk_program_counter x_6141 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6141 in
+let rec program_counter_rect_Type5 h_mk_program_counter x_6090 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6090 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -103 +103 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type3 h_mk_program_counter x_6143 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6143 in
+let rec program_counter_rect_Type3 h_mk_program_counter x_6092 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6092 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -110 +110 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type2 h_mk_program_counter x_6145 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6145 in
+let rec program_counter_rect_Type2 h_mk_program_counter x_6094 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6094 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -117 +117 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type1 h_mk_program_counter x_6147 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6147 in
+let rec program_counter_rect_Type1 h_mk_program_counter x_6096 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6096 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -124 +124 @@
     (Pointers.block Types.sig0 -> Positive.pos -> 'a1) -> program_counter ->
     'a1 **)
-let rec program_counter_rect_Type0 h_mk_program_counter x_6149 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6149 in
+let rec program_counter_rect_Type0 h_mk_program_counter x_6098 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6098 in
   h_mk_program_counter pc_block0 pc_offset0
 
@@ -215 +215 @@
 
 (** val part_rect_Type4 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type4 h_mk_part x_6165 =
-  let part_no = x_6165 in h_mk_part part_no __
+let rec part_rect_Type4 h_mk_part x_6114 =
+  let part_no = x_6114 in h_mk_part part_no __
 
 (** val part_rect_Type5 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type5 h_mk_part x_6167 =
-  let part_no = x_6167 in h_mk_part part_no __
+let rec part_rect_Type5 h_mk_part x_6116 =
+  let part_no = x_6116 in h_mk_part part_no __
 
 (** val part_rect_Type3 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type3 h_mk_part x_6169 =
-  let part_no = x_6169 in h_mk_part part_no __
+let rec part_rect_Type3 h_mk_part x_6118 =
+  let part_no = x_6118 in h_mk_part part_no __
 
 (** val part_rect_Type2 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type2 h_mk_part x_6171 =
-  let part_no = x_6171 in h_mk_part part_no __
+let rec part_rect_Type2 h_mk_part x_6120 =
+  let part_no = x_6120 in h_mk_part part_no __
 
 (** val part_rect_Type1 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type1 h_mk_part x_6173 =
-  let part_no = x_6173 in h_mk_part part_no __
+let rec part_rect_Type1 h_mk_part x_6122 =
+  let part_no = x_6122 in h_mk_part part_no __
 
 (** val part_rect_Type0 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type0 h_mk_part x_6175 =
-  let part_no = x_6175 in h_mk_part part_no __
+let rec part_rect_Type0 h_mk_part x_6124 =
+  let part_no = x_6124 in h_mk_part part_no __
 
 (** val part_no : part -> Nat.nat **)
@@ -486 +486 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6209, x_6208, x_6207) -> h_BVXor x_6209 x_6208 x_6207
-| BVByte x_6210 -> h_BVByte x_6210
-| BVnull x_6211 -> h_BVnull x_6211
-| BVptr (x_6213, x_6212) -> h_BVptr x_6213 x_6212
-| BVpc (x_6215, x_6214) -> h_BVpc x_6215 x_6214
+| BVXor (x_6158, x_6157, x_6156) -> h_BVXor x_6158 x_6157 x_6156
+| BVByte x_6159 -> h_BVByte x_6159
+| BVnull x_6160 -> h_BVnull x_6160
+| BVptr (x_6162, x_6161) -> h_BVptr x_6162 x_6161
+| BVpc (x_6164, x_6163) -> h_BVpc x_6164 x_6163
 
 (** val beval_rect_Type5 :
@@ -500 +500 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6226, x_6225, x_6224) -> h_BVXor x_6226 x_6225 x_6224
-| BVByte x_6227 -> h_BVByte x_6227
-| BVnull x_6228 -> h_BVnull x_6228
-| BVptr (x_6230, x_6229) -> h_BVptr x_6230 x_6229
-| BVpc (x_6232, x_6231) -> h_BVpc x_6232 x_6231
+| BVXor (x_6175, x_6174, x_6173) -> h_BVXor x_6175 x_6174 x_6173
+| BVByte x_6176 -> h_BVByte x_6176
+| BVnull x_6177 -> h_BVnull x_6177
+| BVptr (x_6179, x_6178) -> h_BVptr x_6179 x_6178
+| BVpc (x_6181, x_6180) -> h_BVpc x_6181 x_6180
 
 (** val beval_rect_Type3 :
@@ -514 +514 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6243, x_6242, x_6241) -> h_BVXor x_6243 x_6242 x_6241
-| BVByte x_6244 -> h_BVByte x_6244
-| BVnull x_6245 -> h_BVnull x_6245
-| BVptr (x_6247, x_6246) -> h_BVptr x_6247 x_6246
-| BVpc (x_6249, x_6248) -> h_BVpc x_6249 x_6248
+| BVXor (x_6192, x_6191, x_6190) -> h_BVXor x_6192 x_6191 x_6190
+| BVByte x_6193 -> h_BVByte x_6193
+| BVnull x_6194 -> h_BVnull x_6194
+| BVptr (x_6196, x_6195) -> h_BVptr x_6196 x_6195
+| BVpc (x_6198, x_6197) -> h_BVpc x_6198 x_6197
 
 (** val beval_rect_Type2 :
@@ -528 +528 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6260, x_6259, x_6258) -> h_BVXor x_6260 x_6259 x_6258
-| BVByte x_6261 -> h_BVByte x_6261
-| BVnull x_6262 -> h_BVnull x_6262
-| BVptr (x_6264, x_6263) -> h_BVptr x_6264 x_6263
-| BVpc (x_6266, x_6265) -> h_BVpc x_6266 x_6265
+| BVXor (x_6209, x_6208, x_6207) -> h_BVXor x_6209 x_6208 x_6207
+| BVByte x_6210 -> h_BVByte x_6210
+| BVnull x_6211 -> h_BVnull x_6211
+| BVptr (x_6213, x_6212) -> h_BVptr x_6213 x_6212
+| BVpc (x_6215, x_6214) -> h_BVpc x_6215 x_6214
 
 (** val beval_rect_Type1 :
@@ -542 +542 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6277, x_6276, x_6275) -> h_BVXor x_6277 x_6276 x_6275
-| BVByte x_6278 -> h_BVByte x_6278
-| BVnull x_6279 -> h_BVnull x_6279
-| BVptr (x_6281, x_6280) -> h_BVptr x_6281 x_6280
-| BVpc (x_6283, x_6282) -> h_BVpc x_6283 x_6282
+| BVXor (x_6226, x_6225, x_6224) -> h_BVXor x_6226 x_6225 x_6224
+| BVByte x_6227 -> h_BVByte x_6227
+| BVnull x_6228 -> h_BVnull x_6228
+| BVptr (x_6230, x_6229) -> h_BVptr x_6230 x_6229
+| BVpc (x_6232, x_6231) -> h_BVpc x_6232 x_6231
 
 (** val beval_rect_Type0 :
@@ -556 +556 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6294, x_6293, x_6292) -> h_BVXor x_6294 x_6293 x_6292
-| BVByte x_6295 -> h_BVByte x_6295
-| BVnull x_6296 -> h_BVnull x_6296
-| BVptr (x_6298, x_6297) -> h_BVptr x_6298 x_6297
-| BVpc (x_6300, x_6299) -> h_BVpc x_6300 x_6299
+| BVXor (x_6243, x_6242, x_6241) -> h_BVXor x_6243 x_6242 x_6241
+| BVByte x_6244 -> h_BVByte x_6244
+| BVnull x_6245 -> h_BVnull x_6245
+| BVptr (x_6247, x_6246) -> h_BVptr x_6247 x_6246
+| BVpc (x_6249, x_6248) -> h_BVpc x_6249 x_6248
 
 (** val beval_inv_rect_Type4 :
@@ -985 +985 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type4 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6458 -> h_BBbit x_6458
+| BBbit x_6407 -> h_BBbit x_6407
 | BBundef -> h_BBundef
-| BBptrcarry (x_6461, x_6460, p, x_6459) ->
-  h_BBptrcarry x_6461 x_6460 p x_6459
+| BBptrcarry (x_6410, x_6409, p, x_6408) ->
+  h_BBptrcarry x_6410 x_6409 p x_6408
 
 (** val bebit_rect_Type5 :
@@ -994 +994 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type5 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6466 -> h_BBbit x_6466
+| BBbit x_6415 -> h_BBbit x_6415
 | BBundef -> h_BBundef
-| BBptrcarry (x_6469, x_6468, p, x_6467) ->
-  h_BBptrcarry x_6469 x_6468 p x_6467
+| BBptrcarry (x_6418, x_6417, p, x_6416) ->
+  h_BBptrcarry x_6418 x_6417 p x_6416
 
 (** val bebit_rect_Type3 :
@@ -1003 +1003 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type3 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6474 -> h_BBbit x_6474
+| BBbit x_6423 -> h_BBbit x_6423
 | BBundef -> h_BBundef
-| BBptrcarry (x_6477, x_6476, p, x_6475) ->
-  h_BBptrcarry x_6477 x_6476 p x_6475
+| BBptrcarry (x_6426, x_6425, p, x_6424) ->
+  h_BBptrcarry x_6426 x_6425 p x_6424
 
 (** val bebit_rect_Type2 :
@@ -1012 +1012 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type2 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6482 -> h_BBbit x_6482
+| BBbit x_6431 -> h_BBbit x_6431
 | BBundef -> h_BBundef
-| BBptrcarry (x_6485, x_6484, p, x_6483) ->
-  h_BBptrcarry x_6485 x_6484 p x_6483
+| BBptrcarry (x_6434, x_6433, p, x_6432) ->
+  h_BBptrcarry x_6434 x_6433 p x_6432
 
 (** val bebit_rect_Type1 :
@@ -1021 +1021 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type1 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6490 -> h_BBbit x_6490
+| BBbit x_6439 -> h_BBbit x_6439
 | BBundef -> h_BBundef
-| BBptrcarry (x_6493, x_6492, p, x_6491) ->
-  h_BBptrcarry x_6493 x_6492 p x_6491
+| BBptrcarry (x_6442, x_6441, p, x_6440) ->
+  h_BBptrcarry x_6442 x_6441 p x_6440
 
 (** val bebit_rect_Type0 :
@@ -1030 +1030 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type0 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6498 -> h_BBbit x_6498
+| BBbit x_6447 -> h_BBbit x_6447
 | BBundef -> h_BBundef
-| BBptrcarry (x_6501, x_6500, p, x_6499) ->
-  h_BBptrcarry x_6501 x_6500 p x_6499
+| BBptrcarry (x_6450, x_6449, p, x_6448) ->
+  h_BBptrcarry x_6450 x_6449 p x_6448
 
 (** val bebit_inv_rect_Type4 :

extracted/classifyOp.ml

@@ -96 +96 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type4 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7428 x_7427 = function
+let rec classify_add_cases_rect_Type4 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12331 x_12330 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -108 +108 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type5 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7435 x_7434 = function
+let rec classify_add_cases_rect_Type5 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12338 x_12337 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -120 +120 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type3 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7442 x_7441 = function
+let rec classify_add_cases_rect_Type3 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12345 x_12344 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -132 +132 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type2 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7449 x_7448 = function
+let rec classify_add_cases_rect_Type2 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12352 x_12351 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -144 +144 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type1 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7456 x_7455 = function
+let rec classify_add_cases_rect_Type1 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12359 x_12358 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -156 +156 @@
     (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 -> Csyntax.type0
     -> classify_add_cases -> 'a1 **)
-let rec classify_add_cases_rect_Type0 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7463 x_7462 = function
+let rec classify_add_cases_rect_Type0 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_12366 x_12365 = function
 | Add_case_ii (sz, sg) -> h_add_case_ii sz sg
 | Add_case_pi (n, ty, sz, sg) -> h_add_case_pi n ty sz sg
@@ -319 +319 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type4 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7519 x_7518 = function
+let rec classify_sub_cases_rect_Type4 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12422 x_12421 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -331 +331 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type5 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7526 x_7525 = function
+let rec classify_sub_cases_rect_Type5 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12429 x_12428 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -343 +343 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type3 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7533 x_7532 = function
+let rec classify_sub_cases_rect_Type3 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12436 x_12435 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -355 +355 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type2 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7540 x_7539 = function
+let rec classify_sub_cases_rect_Type2 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12443 x_12442 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -367 +367 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type1 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7547 x_7546 = function
+let rec classify_sub_cases_rect_Type1 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12450 x_12449 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -379 +379 @@
     'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) -> Csyntax.type0 ->
     Csyntax.type0 -> classify_sub_cases -> 'a1 **)
-let rec classify_sub_cases_rect_Type0 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7554 x_7553 = function
+let rec classify_sub_cases_rect_Type0 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_12457 x_12456 = function
 | Sub_case_ii (sz, sg) -> h_sub_case_ii sz sg
 | Sub_case_pi (n, ty, sz, sg) -> h_sub_case_pi n ty sz sg
@@ -519 +519 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type4 h_aop_case_ii h_aop_default x_7608 x_7607 = function
+let rec classify_aop_cases_rect_Type4 h_aop_case_ii h_aop_default x_12511 x_12510 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -526 +526 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type5 h_aop_case_ii h_aop_default x_7613 x_7612 = function
+let rec classify_aop_cases_rect_Type5 h_aop_case_ii h_aop_default x_12516 x_12515 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -533 +533 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type3 h_aop_case_ii h_aop_default x_7618 x_7617 = function
+let rec classify_aop_cases_rect_Type3 h_aop_case_ii h_aop_default x_12521 x_12520 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -540 +540 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type2 h_aop_case_ii h_aop_default x_7623 x_7622 = function
+let rec classify_aop_cases_rect_Type2 h_aop_case_ii h_aop_default x_12526 x_12525 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -547 +547 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type1 h_aop_case_ii h_aop_default x_7628 x_7627 = function
+let rec classify_aop_cases_rect_Type1 h_aop_case_ii h_aop_default x_12531 x_12530 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -554 +554 @@
     (AST.intsize -> AST.signedness -> 'a1) -> (Csyntax.type0 -> Csyntax.type0
     -> 'a1) -> Csyntax.type0 -> Csyntax.type0 -> classify_aop_cases -> 'a1 **)
-let rec classify_aop_cases_rect_Type0 h_aop_case_ii h_aop_default x_7633 x_7632 = function
+let rec classify_aop_cases_rect_Type0 h_aop_case_ii h_aop_default x_12536 x_12535 = function
 | Aop_case_ii (sz, sg) -> h_aop_case_ii sz sg
 | Aop_default (ty, ty') -> h_aop_default ty ty'
@@ -636 +636 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type4 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7674 x_7673 = function
+let rec classify_cmp_cases_rect_Type4 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12577 x_12576 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -645 +645 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type5 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7680 x_7679 = function
+let rec classify_cmp_cases_rect_Type5 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12583 x_12582 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -654 +654 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type3 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7686 x_7685 = function
+let rec classify_cmp_cases_rect_Type3 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12589 x_12588 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -663 +663 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type2 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7692 x_7691 = function
+let rec classify_cmp_cases_rect_Type2 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12595 x_12594 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -672 +672 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type1 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7698 x_7697 = function
+let rec classify_cmp_cases_rect_Type1 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12601 x_12600 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -681 +681 @@
     Csyntax.type0 -> 'a1) -> (Csyntax.type0 -> Csyntax.type0 -> 'a1) ->
     Csyntax.type0 -> Csyntax.type0 -> classify_cmp_cases -> 'a1 **)
-let rec classify_cmp_cases_rect_Type0 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7704 x_7703 = function
+let rec classify_cmp_cases_rect_Type0 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_12607 x_12606 = function
 | Cmp_case_ii (sz, sg) -> h_cmp_case_ii sz sg
 | Cmp_case_pp (n, ty) -> h_cmp_case_pp n ty
@@ -780 +780 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type4 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7752, x_7751) -> h_fun_case_f x_7752 x_7751
+| Fun_case_f (x_12655, x_12654) -> h_fun_case_f x_12655 x_12654
 | Fun_default -> h_fun_default
 
@@ -787 +787 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type5 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7757, x_7756) -> h_fun_case_f x_7757 x_7756
+| Fun_case_f (x_12660, x_12659) -> h_fun_case_f x_12660 x_12659
 | Fun_default -> h_fun_default
 
@@ -794 +794 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type3 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7762, x_7761) -> h_fun_case_f x_7762 x_7761
+| Fun_case_f (x_12665, x_12664) -> h_fun_case_f x_12665 x_12664
 | Fun_default -> h_fun_default
 
@@ -801 +801 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type2 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7767, x_7766) -> h_fun_case_f x_7767 x_7766
+| Fun_case_f (x_12670, x_12669) -> h_fun_case_f x_12670 x_12669
 | Fun_default -> h_fun_default
 
@@ -808 +808 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type1 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7772, x_7771) -> h_fun_case_f x_7772 x_7771
+| Fun_case_f (x_12675, x_12674) -> h_fun_case_f x_12675 x_12674
 | Fun_default -> h_fun_default
 
@@ -815 +815 @@
     -> 'a1 **)
 let rec classify_fun_cases_rect_Type0 h_fun_case_f h_fun_default = function
-| Fun_case_f (x_7777, x_7776) -> h_fun_case_f x_7777 x_7776
+| Fun_case_f (x_12680, x_12679) -> h_fun_case_f x_12680 x_12679
 | Fun_default -> h_fun_default
 

extracted/cminor_semantics.ml

@@ -123 +123 @@
 let rec cont_rect_Type4 h_Kend h_Kseq h_Kblock = function
 | Kend -> h_Kend
-| Kseq (x_4629, x_4628) ->
-  h_Kseq x_4629 x_4628 (cont_rect_Type4 h_Kend h_Kseq h_Kblock x_4628)
-| Kblock x_4630 ->
-  h_Kblock x_4630 (cont_rect_Type4 h_Kend h_Kseq h_Kblock x_4630)
+| Kseq (x_20078, x_20077) ->
+  h_Kseq x_20078 x_20077 (cont_rect_Type4 h_Kend h_Kseq h_Kblock x_20077)
+| Kblock x_20079 ->
+  h_Kblock x_20079 (cont_rect_Type4 h_Kend h_Kseq h_Kblock x_20079)
 
 (** val cont_rect_Type3 :
@@ -133 +133 @@
 let rec cont_rect_Type3 h_Kend h_Kseq h_Kblock = function
 | Kend -> h_Kend
-| Kseq (x_4643, x_4642) ->
-  h_Kseq x_4643 x_4642 (cont_rect_Type3 h_Kend h_Kseq h_Kblock x_4642)
-| Kblock x_4644 ->
-  h_Kblock x_4644 (cont_rect_Type3 h_Kend h_Kseq h_Kblock x_4644)
+| Kseq (x_20092, x_20091) ->
+  h_Kseq x_20092 x_20091 (cont_rect_Type3 h_Kend h_Kseq h_Kblock x_20091)
+| Kblock x_20093 ->
+  h_Kblock x_20093 (cont_rect_Type3 h_Kend h_Kseq h_Kblock x_20093)
 
 (** val cont_rect_Type2 :
@@ -143 +143 @@
 let rec cont_rect_Type2 h_Kend h_Kseq h_Kblock = function
 | Kend -> h_Kend
-| Kseq (x_4650, x_4649) ->
-  h_Kseq x_4650 x_4649 (cont_rect_Type2 h_Kend h_Kseq h_Kblock x_4649)
-| Kblock x_4651 ->
-  h_Kblock x_4651 (cont_rect_Type2 h_Kend h_Kseq h_Kblock x_4651)
+| Kseq (x_20099, x_20098) ->
+  h_Kseq x_20099 x_20098 (cont_rect_Type2 h_Kend h_Kseq h_Kblock x_20098)
+| Kblock x_20100 ->
+  h_Kblock x_20100 (cont_rect_Type2 h_Kend h_Kseq h_Kblock x_20100)
 
 (** val cont_rect_Type1 :
@@ -153 +153 @@
 let rec cont_rect_Type1 h_Kend h_Kseq h_Kblock = function
 | Kend -> h_Kend
-| Kseq (x_4657, x_4656) ->
-  h_Kseq x_4657 x_4656 (cont_rect_Type1 h_Kend h_Kseq h_Kblock x_4656)
-| Kblock x_4658 ->
-  h_Kblock x_4658 (cont_rect_Type1 h_Kend h_Kseq h_Kblock x_4658)
+| Kseq (x_20106, x_20105) ->
+  h_Kseq x_20106 x_20105 (cont_rect_Type1 h_Kend h_Kseq h_Kblock x_20105)
+| Kblock x_20107 ->
+  h_Kblock x_20107 (cont_rect_Type1 h_Kend h_Kseq h_Kblock x_20107)
 
 (** val cont_rect_Type0 :
@@ -163 +163 @@
 let rec cont_rect_Type0 h_Kend h_Kseq h_Kblock = function
 | Kend -> h_Kend
-| Kseq (x_4664, x_4663) ->
-  h_Kseq x_4664 x_4663 (cont_rect_Type0 h_Kend h_Kseq h_Kblock x_4663)
-| Kblock x_4665 ->
-  h_Kblock x_4665 (cont_rect_Type0 h_Kend h_Kseq h_Kblock x_4665)
+| Kseq (x_20113, x_20112) ->
+  h_Kseq x_20113 x_20112 (cont_rect_Type0 h_Kend h_Kseq h_Kblock x_20112)
+| Kblock x_20114 ->
+  h_Kblock x_20114 (cont_rect_Type0 h_Kend h_Kseq h_Kblock x_20114)
 
 (** val cont_inv_rect_Type4 :
@@ -226 +226 @@
 let rec stack_rect_Type4 h_SStop h_Scall = function
 | SStop -> h_SStop
-| Scall (dest, f, x_4724, en, k, x_4720) ->
-  h_Scall dest f x_4724 en __ __ k __ x_4720
-    (stack_rect_Type4 h_SStop h_Scall x_4720)
+| Scall (dest, f, x_20173, en, k, x_20169) ->
+  h_Scall dest f x_20173 en __ __ k __ x_20169
+    (stack_rect_Type4 h_SStop h_Scall x_20169)
 
 (** val stack_rect_Type3 :
@@ -236 +236 @@
 let rec stack_rect_Type3 h_SStop h_Scall = function
 | SStop -> h_SStop
-| Scall (dest, f, x_4740, en, k, x_4736) ->
-  h_Scall dest f x_4740 en __ __ k __ x_4736
-    (stack_rect_Type3 h_SStop h_Scall x_4736)
+| Scall (dest, f, x_20189, en, k, x_20185) ->
+  h_Scall dest f x_20189 en __ __ k __ x_20185
+    (stack_rect_Type3 h_SStop h_Scall x_20185)
 
 (** val stack_rect_Type2 :
@@ -246 +246 @@
 let rec stack_rect_Type2 h_SStop h_Scall = function
 | SStop -> h_SStop
-| Scall (dest, f, x_4748, en, k, x_4744) ->
-  h_Scall dest f x_4748 en __ __ k __ x_4744
-    (stack_rect_Type2 h_SStop h_Scall x_4744)
+| Scall (dest, f, x_20197, en, k, x_20193) ->
+  h_Scall dest f x_20197 en __ __ k __ x_20193
+    (stack_rect_Type2 h_SStop h_Scall x_20193)
 
 (** val stack_rect_Type1 :
@@ -256 +256 @@
 let rec stack_rect_Type1 h_SStop h_Scall = function
 | SStop -> h_SStop
-| Scall (dest, f, x_4756, en, k, x_4752) ->
-  h_Scall dest f x_4756 en __ __ k __ x_4752
-    (stack_rect_Type1 h_SStop h_Scall x_4752)
+| Scall (dest, f, x_20205, en, k, x_20201) ->
+  h_Scall dest f x_20205 en __ __ k __ x_20201
+    (stack_rect_Type1 h_SStop h_Scall x_20201)
 
 (** val stack_rect_Type0 :
@@ -266 +266 @@
 let rec stack_rect_Type0 h_SStop h_Scall = function
 | SStop -> h_SStop
-| Scall (dest, f, x_4764, en, k, x_4760) ->
-  h_Scall dest f x_4764 en __ __ k __ x_4760
-    (stack_rect_Type0 h_SStop h_Scall x_4760)
+| Scall (dest, f, x_20213, en, k, x_20209) ->
+  h_Scall dest f x_20213 en __ __ k __ x_20209
+    (stack_rect_Type0 h_SStop h_Scall x_20209)
 
 (** val stack_inv_rect_Type4 :

extracted/cminor_syntax.ml

@@ -113 +113 @@
     -> 'a1 -> 'a1 -> 'a1) -> (AST.typ -> CostLabel.costlabel -> expr -> 'a1
     -> 'a1) -> AST.typ -> expr -> 'a1 **)
-let rec expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13785 = function
-| Id (t, x_13787) -> h_Id t x_13787
-| Cst (t, x_13788) -> h_Cst t x_13788
-| Op1 (t, t', x_13790, x_13789) ->
-  h_Op1 t t' x_13790 x_13789
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13789)
-| Op2 (t1, t2, t', x_13793, x_13792, x_13791) ->
-  h_Op2 t1 t2 t' x_13793 x_13792 x_13791
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13792)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13791)
-| Mem (t, x_13794) ->
-  h_Mem t x_13794
+let rec expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_10841 = function
+| Id (t, x_10843) -> h_Id t x_10843
+| Cst (t, x_10844) -> h_Cst t x_10844
+| Op1 (t, t', x_10846, x_10845) ->
+  h_Op1 t t' x_10846 x_10845
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10845)
+| Op2 (t1, t2, t', x_10849, x_10848, x_10847) ->
+  h_Op2 t1 t2 t' x_10849 x_10848 x_10847
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_10848)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_10847)
+| Mem (t, x_10850) ->
+  h_Mem t x_10850
     (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13794)
-| Cond (sz, sg, t, x_13797, x_13796, x_13795) ->
-  h_Cond sz sg t x_13797 x_13796 x_13795
+      x_10850)
+| Cond (sz, sg, t, x_10853, x_10852, x_10851) ->
+  h_Cond sz sg t x_10853 x_10852 x_10851
     (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13797)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13796)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13795)
-| Ecost (t, x_13799, x_13798) ->
-  h_Ecost t x_13799 x_13798
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13798)
+      (sz, sg)) x_10853)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10852)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10851)
+| Ecost (t, x_10855, x_10854) ->
+  h_Ecost t x_10855 x_10854
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10854)
 
 (** val expr_rect_Type3 :
@@ -145 +145 @@
     -> 'a1 -> 'a1 -> 'a1) -> (AST.typ -> CostLabel.costlabel -> expr -> 'a1
     -> 'a1) -> AST.typ -> expr -> 'a1 **)
-let rec expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13829 = function
-| Id (t, x_13831) -> h_Id t x_13831
-| Cst (t, x_13832) -> h_Cst t x_13832
-| Op1 (t, t', x_13834, x_13833) ->
-  h_Op1 t t' x_13834 x_13833
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13833)
-| Op2 (t1, t2, t', x_13837, x_13836, x_13835) ->
-  h_Op2 t1 t2 t' x_13837 x_13836 x_13835
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13836)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13835)
-| Mem (t, x_13838) ->
-  h_Mem t x_13838
+let rec expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_10885 = function
+| Id (t, x_10887) -> h_Id t x_10887
+| Cst (t, x_10888) -> h_Cst t x_10888
+| Op1 (t, t', x_10890, x_10889) ->
+  h_Op1 t t' x_10890 x_10889
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10889)
+| Op2 (t1, t2, t', x_10893, x_10892, x_10891) ->
+  h_Op2 t1 t2 t' x_10893 x_10892 x_10891
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_10892)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_10891)
+| Mem (t, x_10894) ->
+  h_Mem t x_10894
     (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13838)
-| Cond (sz, sg, t, x_13841, x_13840, x_13839) ->
-  h_Cond sz sg t x_13841 x_13840 x_13839
+      x_10894)
+| Cond (sz, sg, t, x_10897, x_10896, x_10895) ->
+  h_Cond sz sg t x_10897 x_10896 x_10895
     (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13841)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13840)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13839)
-| Ecost (t, x_13843, x_13842) ->
-  h_Ecost t x_13843 x_13842
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13842)
+      (sz, sg)) x_10897)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10896)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10895)
+| Ecost (t, x_10899, x_10898) ->
+  h_Ecost t x_10899 x_10898
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10898)
 
 (** val expr_rect_Type2 :
@@ -177 +177 @@
     -> 'a1 -> 'a1 -> 'a1) -> (AST.typ -> CostLabel.costlabel -> expr -> 'a1
     -> 'a1) -> AST.typ -> expr -> 'a1 **)
-let rec expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13851 = function
-| Id (t, x_13853) -> h_Id t x_13853
-| Cst (t, x_13854) -> h_Cst t x_13854
-| Op1 (t, t', x_13856, x_13855) ->
-  h_Op1 t t' x_13856 x_13855
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13855)
-| Op2 (t1, t2, t', x_13859, x_13858, x_13857) ->
-  h_Op2 t1 t2 t' x_13859 x_13858 x_13857
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13858)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13857)
-| Mem (t, x_13860) ->
-  h_Mem t x_13860
+let rec expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_10907 = function
+| Id (t, x_10909) -> h_Id t x_10909
+| Cst (t, x_10910) -> h_Cst t x_10910
+| Op1 (t, t', x_10912, x_10911) ->
+  h_Op1 t t' x_10912 x_10911
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10911)
+| Op2 (t1, t2, t', x_10915, x_10914, x_10913) ->
+  h_Op2 t1 t2 t' x_10915 x_10914 x_10913
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_10914)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_10913)
+| Mem (t, x_10916) ->
+  h_Mem t x_10916
     (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13860)
-| Cond (sz, sg, t, x_13863, x_13862, x_13861) ->
-  h_Cond sz sg t x_13863 x_13862 x_13861
+      x_10916)
+| Cond (sz, sg, t, x_10919, x_10918, x_10917) ->
+  h_Cond sz sg t x_10919 x_10918 x_10917
     (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13863)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13862)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13861)
-| Ecost (t, x_13865, x_13864) ->
-  h_Ecost t x_13865 x_13864
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13864)
+      (sz, sg)) x_10919)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10918)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10917)
+| Ecost (t, x_10921, x_10920) ->
+  h_Ecost t x_10921 x_10920
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10920)
 
 (** val expr_rect_Type1 :
@@ -209 +209 @@
     -> 'a1 -> 'a1 -> 'a1) -> (AST.typ -> CostLabel.costlabel -> expr -> 'a1
     -> 'a1) -> AST.typ -> expr -> 'a1 **)
-let rec expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13873 = function
-| Id (t, x_13875) -> h_Id t x_13875
-| Cst (t, x_13876) -> h_Cst t x_13876
-| Op1 (t, t', x_13878, x_13877) ->
-  h_Op1 t t' x_13878 x_13877
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13877)
-| Op2 (t1, t2, t', x_13881, x_13880, x_13879) ->
-  h_Op2 t1 t2 t' x_13881 x_13880 x_13879
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13880)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13879)
-| Mem (t, x_13882) ->
-  h_Mem t x_13882
+let rec expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_10929 = function
+| Id (t, x_10931) -> h_Id t x_10931
+| Cst (t, x_10932) -> h_Cst t x_10932
+| Op1 (t, t', x_10934, x_10933) ->
+  h_Op1 t t' x_10934 x_10933
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10933)
+| Op2 (t1, t2, t', x_10937, x_10936, x_10935) ->
+  h_Op2 t1 t2 t' x_10937 x_10936 x_10935
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_10936)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_10935)
+| Mem (t, x_10938) ->
+  h_Mem t x_10938
     (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13882)
-| Cond (sz, sg, t, x_13885, x_13884, x_13883) ->
-  h_Cond sz sg t x_13885 x_13884 x_13883
+      x_10938)
+| Cond (sz, sg, t, x_10941, x_10940, x_10939) ->
+  h_Cond sz sg t x_10941 x_10940 x_10939
     (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13885)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13884)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13883)
-| Ecost (t, x_13887, x_13886) ->
-  h_Ecost t x_13887 x_13886
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13886)
+      (sz, sg)) x_10941)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10940)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10939)
+| Ecost (t, x_10943, x_10942) ->
+  h_Ecost t x_10943 x_10942
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10942)
 
 (** val expr_rect_Type0 :
@@ -241 +241 @@
     -> 'a1 -> 'a1 -> 'a1) -> (AST.typ -> CostLabel.costlabel -> expr -> 'a1
     -> 'a1) -> AST.typ -> expr -> 'a1 **)
-let rec expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13895 = function
-| Id (t, x_13897) -> h_Id t x_13897
-| Cst (t, x_13898) -> h_Cst t x_13898
-| Op1 (t, t', x_13900, x_13899) ->
-  h_Op1 t t' x_13900 x_13899
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13899)
-| Op2 (t1, t2, t', x_13903, x_13902, x_13901) ->
-  h_Op2 t1 t2 t' x_13903 x_13902 x_13901
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13902)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13901)
-| Mem (t, x_13904) ->
-  h_Mem t x_13904
+let rec expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_10951 = function
+| Id (t, x_10953) -> h_Id t x_10953
+| Cst (t, x_10954) -> h_Cst t x_10954
+| Op1 (t, t', x_10956, x_10955) ->
+  h_Op1 t t' x_10956 x_10955
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10955)
+| Op2 (t1, t2, t', x_10959, x_10958, x_10957) ->
+  h_Op2 t1 t2 t' x_10959 x_10958 x_10957
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_10958)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_10957)
+| Mem (t, x_10960) ->
+  h_Mem t x_10960
     (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13904)
-| Cond (sz, sg, t, x_13907, x_13906, x_13905) ->
-  h_Cond sz sg t x_13907 x_13906 x_13905
+      x_10960)
+| Cond (sz, sg, t, x_10963, x_10962, x_10961) ->
+  h_Cond sz sg t x_10963 x_10962 x_10961
     (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13907)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13906)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13905)
-| Ecost (t, x_13909, x_13908) ->
-  h_Ecost t x_13909 x_13908
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13908)
+      (sz, sg)) x_10963)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10962)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10961)
+| Ecost (t, x_10965, x_10964) ->
+  h_Ecost t x_10965 x_10964
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_10964)
 
 (** val expr_inv_rect_Type4 :
@@ -373 +373 @@
 let rec stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost = function
 | St_skip -> h_St_skip
-| St_assign (t, x_14080, x_14079) -> h_St_assign t x_14080 x_14079
-| St_store (t, x_14082, x_14081) -> h_St_store t x_14082 x_14081
-| St_call (x_14085, x_14084, x_14083) -> h_St_call x_14085 x_14084 x_14083
-| St_seq (x_14087, x_14086) ->
-  h_St_seq x_14087 x_14086
+| St_assign (t, x_11136, x_11135) -> h_St_assign t x_11136 x_11135
+| St_store (t, x_11138, x_11137) -> h_St_store t x_11138 x_11137
+| St_call (x_11141, x_11140, x_11139) -> h_St_call x_11141 x_11140 x_11139
+| St_seq (x_11143, x_11142) ->
+  h_St_seq x_11143 x_11142
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14087)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11143)
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14086)
-| St_ifthenelse (sz, sg, x_14090, x_14089, x_14088) ->
-  h_St_ifthenelse sz sg x_14090 x_14089 x_14088
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11142)
+| St_ifthenelse (sz, sg, x_11146, x_11145, x_11144) ->
+  h_St_ifthenelse sz sg x_11146 x_11145 x_11144
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14089)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11145)
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14088)
-| St_return x_14091 -> h_St_return x_14091
-| St_label (x_14093, x_14092) ->
-  h_St_label x_14093 x_14092
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11144)
+| St_return x_11147 -> h_St_return x_11147
+| St_label (x_11149, x_11148) ->
+  h_St_label x_11149 x_11148
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14092)
-| St_goto x_14094 -> h_St_goto x_14094
-| St_cost (x_14096, x_14095) ->
-  h_St_cost x_14096 x_14095
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11148)
+| St_goto x_11150 -> h_St_goto x_11150
+| St_cost (x_11152, x_11151) ->
+  h_St_cost x_11152 x_11151
     (stmt_rect_Type4 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14095)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11151)
 
 (** val stmt_rect_Type3 :
@@ -410 +410 @@
 let rec stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost = function
 | St_skip -> h_St_skip
-| St_assign (t, x_14138, x_14137) -> h_St_assign t x_14138 x_14137
-| St_store (t, x_14140, x_14139) -> h_St_store t x_14140 x_14139
-| St_call (x_14143, x_14142, x_14141) -> h_St_call x_14143 x_14142 x_14141
-| St_seq (x_14145, x_14144) ->
-  h_St_seq x_14145 x_14144
+| St_assign (t, x_11194, x_11193) -> h_St_assign t x_11194 x_11193
+| St_store (t, x_11196, x_11195) -> h_St_store t x_11196 x_11195
+| St_call (x_11199, x_11198, x_11197) -> h_St_call x_11199 x_11198 x_11197
+| St_seq (x_11201, x_11200) ->
+  h_St_seq x_11201 x_11200
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14145)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11201)
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14144)
-| St_ifthenelse (sz, sg, x_14148, x_14147, x_14146) ->
-  h_St_ifthenelse sz sg x_14148 x_14147 x_14146
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11200)
+| St_ifthenelse (sz, sg, x_11204, x_11203, x_11202) ->
+  h_St_ifthenelse sz sg x_11204 x_11203 x_11202
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14147)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11203)
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14146)
-| St_return x_14149 -> h_St_return x_14149
-| St_label (x_14151, x_14150) ->
-  h_St_label x_14151 x_14150
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11202)
+| St_return x_11205 -> h_St_return x_11205
+| St_label (x_11207, x_11206) ->
+  h_St_label x_11207 x_11206
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14150)
-| St_goto x_14152 -> h_St_goto x_14152
-| St_cost (x_14154, x_14153) ->
-  h_St_cost x_14154 x_14153
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11206)
+| St_goto x_11208 -> h_St_goto x_11208
+| St_cost (x_11210, x_11209) ->
+  h_St_cost x_11210 x_11209
     (stmt_rect_Type3 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14153)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11209)
 
 (** val stmt_rect_Type2 :
@@ -447 +447 @@
 let rec stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost = function
 | St_skip -> h_St_skip
-| St_assign (t, x_14167, x_14166) -> h_St_assign t x_14167 x_14166
-| St_store (t, x_14169, x_14168) -> h_St_store t x_14169 x_14168
-| St_call (x_14172, x_14171, x_14170) -> h_St_call x_14172 x_14171 x_14170
-| St_seq (x_14174, x_14173) ->
-  h_St_seq x_14174 x_14173
+| St_assign (t, x_11223, x_11222) -> h_St_assign t x_11223 x_11222
+| St_store (t, x_11225, x_11224) -> h_St_store t x_11225 x_11224
+| St_call (x_11228, x_11227, x_11226) -> h_St_call x_11228 x_11227 x_11226
+| St_seq (x_11230, x_11229) ->
+  h_St_seq x_11230 x_11229
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14174)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11230)
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14173)
-| St_ifthenelse (sz, sg, x_14177, x_14176, x_14175) ->
-  h_St_ifthenelse sz sg x_14177 x_14176 x_14175
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11229)
+| St_ifthenelse (sz, sg, x_11233, x_11232, x_11231) ->
+  h_St_ifthenelse sz sg x_11233 x_11232 x_11231
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14176)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11232)
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14175)
-| St_return x_14178 -> h_St_return x_14178
-| St_label (x_14180, x_14179) ->
-  h_St_label x_14180 x_14179
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11231)
+| St_return x_11234 -> h_St_return x_11234
+| St_label (x_11236, x_11235) ->
+  h_St_label x_11236 x_11235
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14179)
-| St_goto x_14181 -> h_St_goto x_14181
-| St_cost (x_14183, x_14182) ->
-  h_St_cost x_14183 x_14182
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11235)
+| St_goto x_11237 -> h_St_goto x_11237
+| St_cost (x_11239, x_11238) ->
+  h_St_cost x_11239 x_11238
     (stmt_rect_Type2 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14182)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11238)
 
 (** val stmt_rect_Type1 :
@@ -484 +484 @@
 let rec stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost = function
 | St_skip -> h_St_skip
-| St_assign (t, x_14196, x_14195) -> h_St_assign t x_14196 x_14195
-| St_store (t, x_14198, x_14197) -> h_St_store t x_14198 x_14197
-| St_call (x_14201, x_14200, x_14199) -> h_St_call x_14201 x_14200 x_14199
-| St_seq (x_14203, x_14202) ->
-  h_St_seq x_14203 x_14202
+| St_assign (t, x_11252, x_11251) -> h_St_assign t x_11252 x_11251
+| St_store (t, x_11254, x_11253) -> h_St_store t x_11254 x_11253
+| St_call (x_11257, x_11256, x_11255) -> h_St_call x_11257 x_11256 x_11255
+| St_seq (x_11259, x_11258) ->
+  h_St_seq x_11259 x_11258
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14203)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11259)
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14202)
-| St_ifthenelse (sz, sg, x_14206, x_14205, x_14204) ->
-  h_St_ifthenelse sz sg x_14206 x_14205 x_14204
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11258)
+| St_ifthenelse (sz, sg, x_11262, x_11261, x_11260) ->
+  h_St_ifthenelse sz sg x_11262 x_11261 x_11260
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14205)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11261)
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14204)
-| St_return x_14207 -> h_St_return x_14207
-| St_label (x_14209, x_14208) ->
-  h_St_label x_14209 x_14208
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11260)
+| St_return x_11263 -> h_St_return x_11263
+| St_label (x_11265, x_11264) ->
+  h_St_label x_11265 x_11264
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14208)
-| St_goto x_14210 -> h_St_goto x_14210
-| St_cost (x_14212, x_14211) ->
-  h_St_cost x_14212 x_14211
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11264)
+| St_goto x_11266 -> h_St_goto x_11266
+| St_cost (x_11268, x_11267) ->
+  h_St_cost x_11268 x_11267
     (stmt_rect_Type1 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14211)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11267)
 
 (** val stmt_rect_Type0 :
@@ -521 +521 @@
 let rec stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost = function
 | St_skip -> h_St_skip
-| St_assign (t, x_14225, x_14224) -> h_St_assign t x_14225 x_14224
-| St_store (t, x_14227, x_14226) -> h_St_store t x_14227 x_14226
-| St_call (x_14230, x_14229, x_14228) -> h_St_call x_14230 x_14229 x_14228
-| St_seq (x_14232, x_14231) ->
-  h_St_seq x_14232 x_14231
+| St_assign (t, x_11281, x_11280) -> h_St_assign t x_11281 x_11280
+| St_store (t, x_11283, x_11282) -> h_St_store t x_11283 x_11282
+| St_call (x_11286, x_11285, x_11284) -> h_St_call x_11286 x_11285 x_11284
+| St_seq (x_11288, x_11287) ->
+  h_St_seq x_11288 x_11287
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14232)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11288)
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14231)
-| St_ifthenelse (sz, sg, x_14235, x_14234, x_14233) ->
-  h_St_ifthenelse sz sg x_14235 x_14234 x_14233
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11287)
+| St_ifthenelse (sz, sg, x_11291, x_11290, x_11289) ->
+  h_St_ifthenelse sz sg x_11291 x_11290 x_11289
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14234)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11290)
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14233)
-| St_return x_14236 -> h_St_return x_14236
-| St_label (x_14238, x_14237) ->
-  h_St_label x_14238 x_14237
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11289)
+| St_return x_11292 -> h_St_return x_11292
+| St_label (x_11294, x_11293) ->
+  h_St_label x_11294 x_11293
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14237)
-| St_goto x_14239 -> h_St_goto x_14239
-| St_cost (x_14241, x_14240) ->
-  h_St_cost x_14241 x_14240
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11293)
+| St_goto x_11295 -> h_St_goto x_11295
+| St_cost (x_11297, x_11296) ->
+  h_St_cost x_11297 x_11296
     (stmt_rect_Type0 h_St_skip h_St_assign h_St_store h_St_call h_St_seq
-      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14240)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_11296)
 
 (** val stmt_inv_rect_Type4 :
@@ -757 +757 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type4 h_mk_internal_function x_14536 =
+let rec internal_function_rect_Type4 h_mk_internal_function x_11592 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14536
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11592
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0
@@ -768 +768 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type5 h_mk_internal_function x_14538 =
+let rec internal_function_rect_Type5 h_mk_internal_function x_11594 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14538
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11594
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0
@@ -779 +779 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type3 h_mk_internal_function x_14540 =
+let rec internal_function_rect_Type3 h_mk_internal_function x_11596 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14540
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11596
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0
@@ -790 +790 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type2 h_mk_internal_function x_14542 =
+let rec internal_function_rect_Type2 h_mk_internal_function x_11598 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14542
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11598
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0
@@ -801 +801 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type1 h_mk_internal_function x_14544 =
+let rec internal_function_rect_Type1 h_mk_internal_function x_11600 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14544
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11600
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0
@@ -812 +812 @@
     (AST.ident, AST.typ) Types.prod List.list -> __ -> Nat.nat -> stmt -> __
     -> 'a1) -> internal_function -> 'a1 **)
-let rec internal_function_rect_Type0 h_mk_internal_function x_14546 =
+let rec internal_function_rect_Type0 h_mk_internal_function x_11602 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14546
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_11602
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0

extracted/csem.ml

@@ -778 +778 @@
 let rec cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3 h_Kswitch h_Kcall = function
 | Kstop -> h_Kstop
-| Kseq (x_8726, x_8725) ->
-  h_Kseq x_8726 x_8725
+| Kseq (x_14621, x_14620) ->
+  h_Kseq x_14621 x_14620
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8725)
-| Kwhile (x_8729, x_8728, x_8727) ->
-  h_Kwhile x_8729 x_8728 x_8727
+      h_Kswitch h_Kcall x_14620)
+| Kwhile (x_14624, x_14623, x_14622) ->
+  h_Kwhile x_14624 x_14623 x_14622
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8727)
-| Kdowhile (x_8732, x_8731, x_8730) ->
-  h_Kdowhile x_8732 x_8731 x_8730
+      h_Kswitch h_Kcall x_14622)
+| Kdowhile (x_14627, x_14626, x_14625) ->
+  h_Kdowhile x_14627 x_14626 x_14625
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8730)
-| Kfor2 (x_8736, x_8735, x_8734, x_8733) ->
-  h_Kfor2 x_8736 x_8735 x_8734 x_8733
+      h_Kswitch h_Kcall x_14625)
+| Kfor2 (x_14631, x_14630, x_14629, x_14628) ->
+  h_Kfor2 x_14631 x_14630 x_14629 x_14628
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8733)
-| Kfor3 (x_8740, x_8739, x_8738, x_8737) ->
-  h_Kfor3 x_8740 x_8739 x_8738 x_8737
+      h_Kswitch h_Kcall x_14628)
+| Kfor3 (x_14635, x_14634, x_14633, x_14632) ->
+  h_Kfor3 x_14635 x_14634 x_14633 x_14632
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8737)
-| Kswitch x_8741 ->
-  h_Kswitch x_8741
+      h_Kswitch h_Kcall x_14632)
+| Kswitch x_14636 ->
+  h_Kswitch x_14636
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8741)
-| Kcall (x_8745, x_8744, x_8743, x_8742) ->
-  h_Kcall x_8745 x_8744 x_8743 x_8742
+      h_Kswitch h_Kcall x_14636)
+| Kcall (x_14640, x_14639, x_14638, x_14637) ->
+  h_Kcall x_14640 x_14639 x_14638 x_14637
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8742)
+      h_Kswitch h_Kcall x_14637)
 
 (** val cont_rect_Type3 :
@@ -818 +818 @@
 let rec cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3 h_Kswitch h_Kcall = function
 | Kstop -> h_Kstop
-| Kseq (x_8786, x_8785) ->
-  h_Kseq x_8786 x_8785
+| Kseq (x_14681, x_14680) ->
+  h_Kseq x_14681 x_14680
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8785)
-| Kwhile (x_8789, x_8788, x_8787) ->
-  h_Kwhile x_8789 x_8788 x_8787
+      h_Kswitch h_Kcall x_14680)
+| Kwhile (x_14684, x_14683, x_14682) ->
+  h_Kwhile x_14684 x_14683 x_14682
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8787)
-| Kdowhile (x_8792, x_8791, x_8790) ->
-  h_Kdowhile x_8792 x_8791 x_8790
+      h_Kswitch h_Kcall x_14682)
+| Kdowhile (x_14687, x_14686, x_14685) ->
+  h_Kdowhile x_14687 x_14686 x_14685
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8790)
-| Kfor2 (x_8796, x_8795, x_8794, x_8793) ->
-  h_Kfor2 x_8796 x_8795 x_8794 x_8793
+      h_Kswitch h_Kcall x_14685)
+| Kfor2 (x_14691, x_14690, x_14689, x_14688) ->
+  h_Kfor2 x_14691 x_14690 x_14689 x_14688
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8793)
-| Kfor3 (x_8800, x_8799, x_8798, x_8797) ->
-  h_Kfor3 x_8800 x_8799 x_8798 x_8797
+      h_Kswitch h_Kcall x_14688)
+| Kfor3 (x_14695, x_14694, x_14693, x_14692) ->
+  h_Kfor3 x_14695 x_14694 x_14693 x_14692
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8797)
-| Kswitch x_8801 ->
-  h_Kswitch x_8801
+      h_Kswitch h_Kcall x_14692)
+| Kswitch x_14696 ->
+  h_Kswitch x_14696
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8801)
-| Kcall (x_8805, x_8804, x_8803, x_8802) ->
-  h_Kcall x_8805 x_8804 x_8803 x_8802
+      h_Kswitch h_Kcall x_14696)
+| Kcall (x_14700, x_14699, x_14698, x_14697) ->
+  h_Kcall x_14700 x_14699 x_14698 x_14697
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8802)
+      h_Kswitch h_Kcall x_14697)
 
 (** val cont_rect_Type2 :
@@ -858 +858 @@
 let rec cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3 h_Kswitch h_Kcall = function
 | Kstop -> h_Kstop
-| Kseq (x_8816, x_8815) ->
-  h_Kseq x_8816 x_8815
+| Kseq (x_14711, x_14710) ->
+  h_Kseq x_14711 x_14710
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8815)
-| Kwhile (x_8819, x_8818, x_8817) ->
-  h_Kwhile x_8819 x_8818 x_8817
+      h_Kswitch h_Kcall x_14710)
+| Kwhile (x_14714, x_14713, x_14712) ->
+  h_Kwhile x_14714 x_14713 x_14712
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8817)
-| Kdowhile (x_8822, x_8821, x_8820) ->
-  h_Kdowhile x_8822 x_8821 x_8820
+      h_Kswitch h_Kcall x_14712)
+| Kdowhile (x_14717, x_14716, x_14715) ->
+  h_Kdowhile x_14717 x_14716 x_14715
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8820)
-| Kfor2 (x_8826, x_8825, x_8824, x_8823) ->
-  h_Kfor2 x_8826 x_8825 x_8824 x_8823
+      h_Kswitch h_Kcall x_14715)
+| Kfor2 (x_14721, x_14720, x_14719, x_14718) ->
+  h_Kfor2 x_14721 x_14720 x_14719 x_14718
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8823)
-| Kfor3 (x_8830, x_8829, x_8828, x_8827) ->
-  h_Kfor3 x_8830 x_8829 x_8828 x_8827
+      h_Kswitch h_Kcall x_14718)
+| Kfor3 (x_14725, x_14724, x_14723, x_14722) ->
+  h_Kfor3 x_14725 x_14724 x_14723 x_14722
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8827)
-| Kswitch x_8831 ->
-  h_Kswitch x_8831
+      h_Kswitch h_Kcall x_14722)
+| Kswitch x_14726 ->
+  h_Kswitch x_14726
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8831)
-| Kcall (x_8835, x_8834, x_8833, x_8832) ->
-  h_Kcall x_8835 x_8834 x_8833 x_8832
+      h_Kswitch h_Kcall x_14726)
+| Kcall (x_14730, x_14729, x_14728, x_14727) ->
+  h_Kcall x_14730 x_14729 x_14728 x_14727
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8832)
+      h_Kswitch h_Kcall x_14727)
 
 (** val cont_rect_Type1 :
@@ -898 +898 @@
 let rec cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3 h_Kswitch h_Kcall = function
 | Kstop -> h_Kstop
-| Kseq (x_8846, x_8845) ->
-  h_Kseq x_8846 x_8845
+| Kseq (x_14741, x_14740) ->
+  h_Kseq x_14741 x_14740
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8845)
-| Kwhile (x_8849, x_8848, x_8847) ->
-  h_Kwhile x_8849 x_8848 x_8847
+      h_Kswitch h_Kcall x_14740)
+| Kwhile (x_14744, x_14743, x_14742) ->
+  h_Kwhile x_14744 x_14743 x_14742
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8847)
-| Kdowhile (x_8852, x_8851, x_8850) ->
-  h_Kdowhile x_8852 x_8851 x_8850
+      h_Kswitch h_Kcall x_14742)
+| Kdowhile (x_14747, x_14746, x_14745) ->
+  h_Kdowhile x_14747 x_14746 x_14745
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8850)
-| Kfor2 (x_8856, x_8855, x_8854, x_8853) ->
-  h_Kfor2 x_8856 x_8855 x_8854 x_8853
+      h_Kswitch h_Kcall x_14745)
+| Kfor2 (x_14751, x_14750, x_14749, x_14748) ->
+  h_Kfor2 x_14751 x_14750 x_14749 x_14748
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8853)
-| Kfor3 (x_8860, x_8859, x_8858, x_8857) ->
-  h_Kfor3 x_8860 x_8859 x_8858 x_8857
+      h_Kswitch h_Kcall x_14748)
+| Kfor3 (x_14755, x_14754, x_14753, x_14752) ->
+  h_Kfor3 x_14755 x_14754 x_14753 x_14752
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8857)
-| Kswitch x_8861 ->
-  h_Kswitch x_8861
+      h_Kswitch h_Kcall x_14752)
+| Kswitch x_14756 ->
+  h_Kswitch x_14756
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8861)
-| Kcall (x_8865, x_8864, x_8863, x_8862) ->
-  h_Kcall x_8865 x_8864 x_8863 x_8862
+      h_Kswitch h_Kcall x_14756)
+| Kcall (x_14760, x_14759, x_14758, x_14757) ->
+  h_Kcall x_14760 x_14759 x_14758 x_14757
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8862)
+      h_Kswitch h_Kcall x_14757)
 
 (** val cont_rect_Type0 :
@@ -938 +938 @@
 let rec cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3 h_Kswitch h_Kcall = function
 | Kstop -> h_Kstop
-| Kseq (x_8876, x_8875) ->
-  h_Kseq x_8876 x_8875
+| Kseq (x_14771, x_14770) ->
+  h_Kseq x_14771 x_14770
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8875)
-| Kwhile (x_8879, x_8878, x_8877) ->
-  h_Kwhile x_8879 x_8878 x_8877
+      h_Kswitch h_Kcall x_14770)
+| Kwhile (x_14774, x_14773, x_14772) ->
+  h_Kwhile x_14774 x_14773 x_14772
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8877)
-| Kdowhile (x_8882, x_8881, x_8880) ->
-  h_Kdowhile x_8882 x_8881 x_8880
+      h_Kswitch h_Kcall x_14772)
+| Kdowhile (x_14777, x_14776, x_14775) ->
+  h_Kdowhile x_14777 x_14776 x_14775
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8880)
-| Kfor2 (x_8886, x_8885, x_8884, x_8883) ->
-  h_Kfor2 x_8886 x_8885 x_8884 x_8883
+      h_Kswitch h_Kcall x_14775)
+| Kfor2 (x_14781, x_14780, x_14779, x_14778) ->
+  h_Kfor2 x_14781 x_14780 x_14779 x_14778
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8883)
-| Kfor3 (x_8890, x_8889, x_8888, x_8887) ->
-  h_Kfor3 x_8890 x_8889 x_8888 x_8887
+      h_Kswitch h_Kcall x_14778)
+| Kfor3 (x_14785, x_14784, x_14783, x_14782) ->
+  h_Kfor3 x_14785 x_14784 x_14783 x_14782
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8887)
-| Kswitch x_8891 ->
-  h_Kswitch x_8891
+      h_Kswitch h_Kcall x_14782)
+| Kswitch x_14786 ->
+  h_Kswitch x_14786
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8891)
-| Kcall (x_8895, x_8894, x_8893, x_8892) ->
-  h_Kcall x_8895 x_8894 x_8893 x_8892
+      h_Kswitch h_Kcall x_14786)
+| Kcall (x_14790, x_14789, x_14788, x_14787) ->
+  h_Kcall x_14790 x_14789 x_14788 x_14787
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8892)
+      h_Kswitch h_Kcall x_14787)
 
 (** val cont_inv_rect_Type4 :

extracted/csyntax.ml

@@ -1203 +1203 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type4 h_mk_function x_4482 =
+let rec function_rect_Type4 h_mk_function x_12143 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4482
+    fn_body = fn_body0 } = x_12143
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1212 +1212 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type5 h_mk_function x_4484 =
+let rec function_rect_Type5 h_mk_function x_12145 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4484
+    fn_body = fn_body0 } = x_12145
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1221 +1221 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type3 h_mk_function x_4486 =
+let rec function_rect_Type3 h_mk_function x_12147 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4486
+    fn_body = fn_body0 } = x_12147
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1230 +1230 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type2 h_mk_function x_4488 =
+let rec function_rect_Type2 h_mk_function x_12149 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4488
+    fn_body = fn_body0 } = x_12149
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1239 +1239 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type1 h_mk_function x_4490 =
+let rec function_rect_Type1 h_mk_function x_12151 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4490
+    fn_body = fn_body0 } = x_12151
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1248 +1248 @@
     (type0 -> (AST.ident, type0) Types.prod List.list -> (AST.ident, type0)
     Types.prod List.list -> statement -> 'a1) -> function0 -> 'a1 **)
-let rec function_rect_Type0 h_mk_function x_4492 =
+let rec function_rect_Type0 h_mk_function x_12153 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4492
+    fn_body = fn_body0 } = x_12153
   in
   h_mk_function fn_return0 fn_params0 fn_vars0 fn_body0
@@ -1322 +1322 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type4 h_CL_Internal h_CL_External = function
-| CL_Internal x_4514 -> h_CL_Internal x_4514
-| CL_External (x_4517, x_4516, x_4515) -> h_CL_External x_4517 x_4516 x_4515
+| CL_Internal x_12175 -> h_CL_Internal x_12175
+| CL_External (x_12178, x_12177, x_12176) ->
+  h_CL_External x_12178 x_12177 x_12176
 
 (** val clight_fundef_rect_Type5 :
@@ -1329 +1330 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type5 h_CL_Internal h_CL_External = function
-| CL_Internal x_4521 -> h_CL_Internal x_4521
-| CL_External (x_4524, x_4523, x_4522) -> h_CL_External x_4524 x_4523 x_4522
+| CL_Internal x_12182 -> h_CL_Internal x_12182
+| CL_External (x_12185, x_12184, x_12183) ->
+  h_CL_External x_12185 x_12184 x_12183
 
 (** val clight_fundef_rect_Type3 :
@@ -1336 +1338 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type3 h_CL_Internal h_CL_External = function
-| CL_Internal x_4528 -> h_CL_Internal x_4528
-| CL_External (x_4531, x_4530, x_4529) -> h_CL_External x_4531 x_4530 x_4529
+| CL_Internal x_12189 -> h_CL_Internal x_12189
+| CL_External (x_12192, x_12191, x_12190) ->
+  h_CL_External x_12192 x_12191 x_12190
 
 (** val clight_fundef_rect_Type2 :
@@ -1343 +1346 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type2 h_CL_Internal h_CL_External = function
-| CL_Internal x_4535 -> h_CL_Internal x_4535
-| CL_External (x_4538, x_4537, x_4536) -> h_CL_External x_4538 x_4537 x_4536
+| CL_Internal x_12196 -> h_CL_Internal x_12196
+| CL_External (x_12199, x_12198, x_12197) ->
+  h_CL_External x_12199 x_12198 x_12197
 
 (** val clight_fundef_rect_Type1 :
@@ -1350 +1354 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type1 h_CL_Internal h_CL_External = function
-| CL_Internal x_4542 -> h_CL_Internal x_4542
-| CL_External (x_4545, x_4544, x_4543) -> h_CL_External x_4545 x_4544 x_4543
+| CL_Internal x_12203 -> h_CL_Internal x_12203
+| CL_External (x_12206, x_12205, x_12204) ->
+  h_CL_External x_12206 x_12205 x_12204
 
 (** val clight_fundef_rect_Type0 :
@@ -1357 +1362 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type0 h_CL_Internal h_CL_External = function
-| CL_Internal x_4549 -> h_CL_Internal x_4549
-| CL_External (x_4552, x_4551, x_4550) -> h_CL_External x_4552 x_4551 x_4550
+| CL_Internal x_12210 -> h_CL_Internal x_12210
+| CL_External (x_12213, x_12212, x_12211) ->
+  h_CL_External x_12213 x_12212 x_12211
 
 (** val clight_fundef_inv_rect_Type4 :
@@ -1532 +1538 @@
 (** val mode_rect_Type4 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type4 h_By_value h_By_reference h_By_nothing x_4602 = function
+let rec mode_rect_Type4 h_By_value h_By_reference h_By_nothing x_12263 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1539 +1545 @@
 (** val mode_rect_Type5 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type5 h_By_value h_By_reference h_By_nothing x_4607 = function
+let rec mode_rect_Type5 h_By_value h_By_reference h_By_nothing x_12268 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1546 +1552 @@
 (** val mode_rect_Type3 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type3 h_By_value h_By_reference h_By_nothing x_4612 = function
+let rec mode_rect_Type3 h_By_value h_By_reference h_By_nothing x_12273 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1553 +1559 @@
 (** val mode_rect_Type2 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type2 h_By_value h_By_reference h_By_nothing x_4617 = function
+let rec mode_rect_Type2 h_By_value h_By_reference h_By_nothing x_12278 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1560 +1566 @@
 (** val mode_rect_Type1 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type1 h_By_value h_By_reference h_By_nothing x_4622 = function
+let rec mode_rect_Type1 h_By_value h_By_reference h_By_nothing x_12283 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1567 +1573 @@
 (** val mode_rect_Type0 :
     (AST.typ -> 'a1) -> 'a1 -> (AST.typ -> 'a1) -> AST.typ -> mode -> 'a1 **)
-let rec mode_rect_Type0 h_By_value h_By_reference h_By_nothing x_4627 = function
+let rec mode_rect_Type0 h_By_value h_By_reference h_By_nothing x_12288 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference

extracted/eRTL.ml

@@ -126 +126 @@
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type4 h_PSD h_HDW = function
-| PSD x_7 -> h_PSD x_7
-| HDW x_8 -> h_HDW x_8
+| PSD x_8132 -> h_PSD x_8132
+| HDW x_8133 -> h_HDW x_8133
 
 (** val move_dst_rect_Type5 :
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type5 h_PSD h_HDW = function
-| PSD x_12 -> h_PSD x_12
-| HDW x_13 -> h_HDW x_13
+| PSD x_8137 -> h_PSD x_8137
+| HDW x_8138 -> h_HDW x_8138
 
 (** val move_dst_rect_Type3 :
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type3 h_PSD h_HDW = function
-| PSD x_17 -> h_PSD x_17
-| HDW x_18 -> h_HDW x_18
+| PSD x_8142 -> h_PSD x_8142
+| HDW x_8143 -> h_HDW x_8143
 
 (** val move_dst_rect_Type2 :
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type2 h_PSD h_HDW = function
-| PSD x_22 -> h_PSD x_22
-| HDW x_23 -> h_HDW x_23
+| PSD x_8147 -> h_PSD x_8147
+| HDW x_8148 -> h_HDW x_8148
 
 (** val move_dst_rect_Type1 :
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type1 h_PSD h_HDW = function
-| PSD x_27 -> h_PSD x_27
-| HDW x_28 -> h_HDW x_28
+| PSD x_8152 -> h_PSD x_8152
+| HDW x_8153 -> h_HDW x_8153
 
 (** val move_dst_rect_Type0 :
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type0 h_PSD h_HDW = function
-| PSD x_32 -> h_PSD x_32
-| HDW x_33 -> h_HDW x_33
+| PSD x_8157 -> h_PSD x_8157
+| HDW x_8158 -> h_HDW x_8158
 
 (** val move_dst_inv_rect_Type4 :
@@ -352 +352 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_72 -> h_ertl_frame_size x_72
+| Ertl_frame_size x_8197 -> h_ertl_frame_size x_8197
 
 (** val ertl_seq_rect_Type5 :
@@ -359 +359 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_77 -> h_ertl_frame_size x_77
+| Ertl_frame_size x_8202 -> h_ertl_frame_size x_8202
 
 (** val ertl_seq_rect_Type3 :
@@ -366 +366 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_82 -> h_ertl_frame_size x_82
+| Ertl_frame_size x_8207 -> h_ertl_frame_size x_8207
 
 (** val ertl_seq_rect_Type2 :
@@ -373 +373 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_87 -> h_ertl_frame_size x_87
+| Ertl_frame_size x_8212 -> h_ertl_frame_size x_8212
 
 (** val ertl_seq_rect_Type1 :
@@ -380 +380 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_92 -> h_ertl_frame_size x_92
+| Ertl_frame_size x_8217 -> h_ertl_frame_size x_8217
 
 (** val ertl_seq_rect_Type0 :
@@ -387 +387 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_97 -> h_ertl_frame_size x_97
+| Ertl_frame_size x_8222 -> h_ertl_frame_size x_8222
 
 (** val ertl_seq_inv_rect_Type4 :

extracted/eRTLptr.ml

@@ -130 +130 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type4 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_141 -> h_ertlptr_ertl x_141
-| LOW_ADDRESS (x_143, x_142) -> h_LOW_ADDRESS x_143 x_142
-| HIGH_ADDRESS (x_145, x_144) -> h_HIGH_ADDRESS x_145 x_144
+| Ertlptr_ertl x_8266 -> h_ertlptr_ertl x_8266
+| LOW_ADDRESS (x_8268, x_8267) -> h_LOW_ADDRESS x_8268 x_8267
+| HIGH_ADDRESS (x_8270, x_8269) -> h_HIGH_ADDRESS x_8270 x_8269
 
 (** val ertlptr_seq_rect_Type5 :
@@ -138 +138 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type5 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_150 -> h_ertlptr_ertl x_150
-| LOW_ADDRESS (x_152, x_151) -> h_LOW_ADDRESS x_152 x_151
-| HIGH_ADDRESS (x_154, x_153) -> h_HIGH_ADDRESS x_154 x_153
+| Ertlptr_ertl x_8275 -> h_ertlptr_ertl x_8275
+| LOW_ADDRESS (x_8277, x_8276) -> h_LOW_ADDRESS x_8277 x_8276
+| HIGH_ADDRESS (x_8279, x_8278) -> h_HIGH_ADDRESS x_8279 x_8278
 
 (** val ertlptr_seq_rect_Type3 :
@@ -146 +146 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type3 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_159 -> h_ertlptr_ertl x_159
-| LOW_ADDRESS (x_161, x_160) -> h_LOW_ADDRESS x_161 x_160
-| HIGH_ADDRESS (x_163, x_162) -> h_HIGH_ADDRESS x_163 x_162
+| Ertlptr_ertl x_8284 -> h_ertlptr_ertl x_8284
+| LOW_ADDRESS (x_8286, x_8285) -> h_LOW_ADDRESS x_8286 x_8285
+| HIGH_ADDRESS (x_8288, x_8287) -> h_HIGH_ADDRESS x_8288 x_8287
 
 (** val ertlptr_seq_rect_Type2 :
@@ -154 +154 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type2 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_168 -> h_ertlptr_ertl x_168
-| LOW_ADDRESS (x_170, x_169) -> h_LOW_ADDRESS x_170 x_169
-| HIGH_ADDRESS (x_172, x_171) -> h_HIGH_ADDRESS x_172 x_171
+| Ertlptr_ertl x_8293 -> h_ertlptr_ertl x_8293
+| LOW_ADDRESS (x_8295, x_8294) -> h_LOW_ADDRESS x_8295 x_8294
+| HIGH_ADDRESS (x_8297, x_8296) -> h_HIGH_ADDRESS x_8297 x_8296
 
 (** val ertlptr_seq_rect_Type1 :
@@ -162 +162 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type1 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_177 -> h_ertlptr_ertl x_177
-| LOW_ADDRESS (x_179, x_178) -> h_LOW_ADDRESS x_179 x_178
-| HIGH_ADDRESS (x_181, x_180) -> h_HIGH_ADDRESS x_181 x_180
+| Ertlptr_ertl x_8302 -> h_ertlptr_ertl x_8302
+| LOW_ADDRESS (x_8304, x_8303) -> h_LOW_ADDRESS x_8304 x_8303
+| HIGH_ADDRESS (x_8306, x_8305) -> h_HIGH_ADDRESS x_8306 x_8305
 
 (** val ertlptr_seq_rect_Type0 :
@@ -170 +170 @@
     (Registers.register -> Graphs.label -> 'a1) -> ertlptr_seq -> 'a1 **)
 let rec ertlptr_seq_rect_Type0 h_ertlptr_ertl h_LOW_ADDRESS h_HIGH_ADDRESS = function
-| Ertlptr_ertl x_186 -> h_ertlptr_ertl x_186
-| LOW_ADDRESS (x_188, x_187) -> h_LOW_ADDRESS x_188 x_187
-| HIGH_ADDRESS (x_190, x_189) -> h_HIGH_ADDRESS x_190 x_189
+| Ertlptr_ertl x_8311 -> h_ertlptr_ertl x_8311
+| LOW_ADDRESS (x_8313, x_8312) -> h_LOW_ADDRESS x_8313 x_8312
+| HIGH_ADDRESS (x_8315, x_8314) -> h_HIGH_ADDRESS x_8315 x_8314
 
 (** val ertlptr_seq_inv_rect_Type4 :

extracted/eRTLptrToLTL.ml

@@ -181 +181 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type4 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_380 -> h_arg_decision_colour x_380
-| Arg_decision_spill x_381 -> h_arg_decision_spill x_381
-| Arg_decision_imm x_382 -> h_arg_decision_imm x_382
+| Arg_decision_colour x_106 -> h_arg_decision_colour x_106
+| Arg_decision_spill x_107 -> h_arg_decision_spill x_107
+| Arg_decision_imm x_108 -> h_arg_decision_imm x_108
 
 (** val arg_decision_rect_Type5 :
@@ -189 +189 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type5 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_387 -> h_arg_decision_colour x_387
-| Arg_decision_spill x_388 -> h_arg_decision_spill x_388
-| Arg_decision_imm x_389 -> h_arg_decision_imm x_389
+| Arg_decision_colour x_113 -> h_arg_decision_colour x_113
+| Arg_decision_spill x_114 -> h_arg_decision_spill x_114
+| Arg_decision_imm x_115 -> h_arg_decision_imm x_115
 
 (** val arg_decision_rect_Type3 :
@@ -197 +197 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type3 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_394 -> h_arg_decision_colour x_394
-| Arg_decision_spill x_395 -> h_arg_decision_spill x_395
-| Arg_decision_imm x_396 -> h_arg_decision_imm x_396
+| Arg_decision_colour x_120 -> h_arg_decision_colour x_120
+| Arg_decision_spill x_121 -> h_arg_decision_spill x_121
+| Arg_decision_imm x_122 -> h_arg_decision_imm x_122
 
 (** val arg_decision_rect_Type2 :
@@ -205 +205 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type2 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_401 -> h_arg_decision_colour x_401
-| Arg_decision_spill x_402 -> h_arg_decision_spill x_402
-| Arg_decision_imm x_403 -> h_arg_decision_imm x_403
+| Arg_decision_colour x_127 -> h_arg_decision_colour x_127
+| Arg_decision_spill x_128 -> h_arg_decision_spill x_128
+| Arg_decision_imm x_129 -> h_arg_decision_imm x_129
 
 (** val arg_decision_rect_Type1 :
@@ -213 +213 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type1 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_408 -> h_arg_decision_colour x_408
-| Arg_decision_spill x_409 -> h_arg_decision_spill x_409
-| Arg_decision_imm x_410 -> h_arg_decision_imm x_410
+| Arg_decision_colour x_134 -> h_arg_decision_colour x_134
+| Arg_decision_spill x_135 -> h_arg_decision_spill x_135
+| Arg_decision_imm x_136 -> h_arg_decision_imm x_136
 
 (** val arg_decision_rect_Type0 :
@@ -221 +221 @@
     arg_decision -> 'a1 **)
 let rec arg_decision_rect_Type0 h_arg_decision_colour h_arg_decision_spill h_arg_decision_imm = function
-| Arg_decision_colour x_415 -> h_arg_decision_colour x_415
-| Arg_decision_spill x_416 -> h_arg_decision_spill x_416
-| Arg_decision_imm x_417 -> h_arg_decision_imm x_417
+| Arg_decision_colour x_141 -> h_arg_decision_colour x_141
+| Arg_decision_spill x_142 -> h_arg_decision_spill x_142
+| Arg_decision_imm x_143 -> h_arg_decision_imm x_143
 
 (** val arg_decision_inv_rect_Type4 :

extracted/errorMessages.ml

@@ -82 +82 @@
 | FunctionNotFound
 | StackOverflow
+

extracted/errors.ml

@@ -43 +43 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type4 h_MSG h_CTX = function
-| MSG x_3100 -> h_MSG x_3100
-| CTX (tag, x_3101) -> h_CTX tag x_3101
+| MSG x_7 -> h_MSG x_7
+| CTX (tag, x_8) -> h_CTX tag x_8
 
 (** val errcode_rect_Type5 :
@@ -50 +50 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type5 h_MSG h_CTX = function
-| MSG x_3105 -> h_MSG x_3105
-| CTX (tag, x_3106) -> h_CTX tag x_3106
+| MSG x_12 -> h_MSG x_12
+| CTX (tag, x_13) -> h_CTX tag x_13
 
 (** val errcode_rect_Type3 :
@@ -57 +57 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type3 h_MSG h_CTX = function
-| MSG x_3110 -> h_MSG x_3110
-| CTX (tag, x_3111) -> h_CTX tag x_3111
+| MSG x_17 -> h_MSG x_17
+| CTX (tag, x_18) -> h_CTX tag x_18
 
 (** val errcode_rect_Type2 :
@@ -64 +64 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type2 h_MSG h_CTX = function
-| MSG x_3115 -> h_MSG x_3115
-| CTX (tag, x_3116) -> h_CTX tag x_3116
+| MSG x_22 -> h_MSG x_22
+| CTX (tag, x_23) -> h_CTX tag x_23
 
 (** val errcode_rect_Type1 :
@@ -71 +71 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type1 h_MSG h_CTX = function
-| MSG x_3120 -> h_MSG x_3120
-| CTX (tag, x_3121) -> h_CTX tag x_3121
+| MSG x_27 -> h_MSG x_27
+| CTX (tag, x_28) -> h_CTX tag x_28
 
 (** val errcode_rect_Type0 :
@@ -78 +78 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type0 h_MSG h_CTX = function
-| MSG x_3125 -> h_MSG x_3125
-| CTX (tag, x_3126) -> h_CTX tag x_3126
+| MSG x_32 -> h_MSG x_32
+| CTX (tag, x_33) -> h_CTX tag x_33
 
 (** val errcode_inv_rect_Type4 :
@@ -143 +143 @@
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type4 h_OK h_Error = function
-| OK x_3165 -> h_OK x_3165
-| Error x_3166 -> h_Error x_3166
+| OK x_72 -> h_OK x_72
+| Error x_73 -> h_Error x_73
 
 (** val res_rect_Type5 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type5 h_OK h_Error = function
-| OK x_3170 -> h_OK x_3170
-| Error x_3171 -> h_Error x_3171
+| OK x_77 -> h_OK x_77
+| Error x_78 -> h_Error x_78
 
 (** val res_rect_Type3 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type3 h_OK h_Error = function
-| OK x_3175 -> h_OK x_3175
-| Error x_3176 -> h_Error x_3176
+| OK x_82 -> h_OK x_82
+| Error x_83 -> h_Error x_83
 
 (** val res_rect_Type2 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type2 h_OK h_Error = function
-| OK x_3180 -> h_OK x_3180
-| Error x_3181 -> h_Error x_3181
+| OK x_87 -> h_OK x_87
+| Error x_88 -> h_Error x_88
 
 (** val res_rect_Type1 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type1 h_OK h_Error = function
-| OK x_3185 -> h_OK x_3185
-| Error x_3186 -> h_Error x_3186
+| OK x_92 -> h_OK x_92
+| Error x_93 -> h_Error x_93
 
 (** val res_rect_Type0 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type0 h_OK h_Error = function
-| OK x_3190 -> h_OK x_3190
-| Error x_3191 -> h_Error x_3191
+| OK x_97 -> h_OK x_97
+| Error x_98 -> h_Error x_98
 
 (** val res_inv_rect_Type4 :

extracted/events.ml

@@ -89 +89 @@
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type4 h_EVint = function
-| EVint (sz, x_5524) -> h_EVint sz x_5524
+| EVint (sz, x_4405) -> h_EVint sz x_4405
 
 (** val eventval_rect_Type5 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type5 h_EVint = function
-| EVint (sz, x_5527) -> h_EVint sz x_5527
+| EVint (sz, x_4408) -> h_EVint sz x_4408
 
 (** val eventval_rect_Type3 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type3 h_EVint = function
-| EVint (sz, x_5530) -> h_EVint sz x_5530
+| EVint (sz, x_4411) -> h_EVint sz x_4411
 
 (** val eventval_rect_Type2 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type2 h_EVint = function
-| EVint (sz, x_5533) -> h_EVint sz x_5533
+| EVint (sz, x_4414) -> h_EVint sz x_4414
 
 (** val eventval_rect_Type1 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type1 h_EVint = function
-| EVint (sz, x_5536) -> h_EVint sz x_5536
+| EVint (sz, x_4417) -> h_EVint sz x_4417
 
 (** val eventval_rect_Type0 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type0 h_EVint = function
-| EVint (sz, x_5539) -> h_EVint sz x_5539
+| EVint (sz, x_4420) -> h_EVint sz x_4420
 
 (** val eventval_inv_rect_Type4 :
@@ -159 +159 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type4 h_EVcost h_EVextcall = function
-| EVcost x_5564 -> h_EVcost x_5564
+| EVcost x_4445 -> h_EVcost x_4445
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 
@@ -166 +166 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type5 h_EVcost h_EVextcall = function
-| EVcost x_5568 -> h_EVcost x_5568
+| EVcost x_4449 -> h_EVcost x_4449
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 
@@ -173 +173 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type3 h_EVcost h_EVextcall = function
-| EVcost x_5572 -> h_EVcost x_5572
+| EVcost x_4453 -> h_EVcost x_4453
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 
@@ -180 +180 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type2 h_EVcost h_EVextcall = function
-| EVcost x_5576 -> h_EVcost x_5576
+| EVcost x_4457 -> h_EVcost x_4457
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 
@@ -187 +187 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type1 h_EVcost h_EVextcall = function
-| EVcost x_5580 -> h_EVcost x_5580
+| EVcost x_4461 -> h_EVcost x_4461
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 
@@ -194 +194 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type0 h_EVcost h_EVextcall = function
-| EVcost x_5584 -> h_EVcost x_5584
+| EVcost x_4465 -> h_EVcost x_4465
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 

extracted/fetch.ml

@@ -98 +98 @@
   (Types.pi1
     (FoldStuff.foldl_strong program (fun prefix x tl _ labels_costs_ppc ->
-      (let { Types.fst = eta24730; Types.snd = ppc } =
+      (let { Types.fst = eta24856; Types.snd = ppc } =
          Types.pi1 labels_costs_ppc
        in
       (fun _ ->
-      (let { Types.fst = labels; Types.snd = costs } = eta24730 in
+      (let { Types.fst = labels; Types.snd = costs } = eta24856 in
       (fun _ ->
       (let { Types.fst = label; Types.snd = instr } = x in

extracted/fixpoints.ml

@@ -80 +80 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type4 h_mk_property_lattice x_19049 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19049
+let rec property_lattice_rect_Type4 h_mk_property_lattice x_8779 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8779
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -89 +89 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type5 h_mk_property_lattice x_19051 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19051
+let rec property_lattice_rect_Type5 h_mk_property_lattice x_8781 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8781
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -98 +98 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type3 h_mk_property_lattice x_19053 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19053
+let rec property_lattice_rect_Type3 h_mk_property_lattice x_8783 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8783
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -107 +107 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type2 h_mk_property_lattice x_19055 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19055
+let rec property_lattice_rect_Type2 h_mk_property_lattice x_8785 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8785
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -116 +116 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type1 h_mk_property_lattice x_19057 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19057
+let rec property_lattice_rect_Type1 h_mk_property_lattice x_8787 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8787
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -125 +125 @@
     (__ -> __ -> (__ -> __ -> Bool.bool) -> (__ -> __ -> Bool.bool) -> (__ ->
     Bool.bool) -> 'a1) -> property_lattice -> 'a1 **)
-let rec property_lattice_rect_Type0 h_mk_property_lattice x_19059 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_19059
+let rec property_lattice_rect_Type0 h_mk_property_lattice x_8789 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_8789
   in
   h_mk_property_lattice __ l_bottom0 l_equal0 l_included0 l_is_maximal0
@@ -201 +201 @@
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type4 latt eqs h_mk_fixpoint x_19080 =
-  let fix_lfp = x_19080 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type4 latt eqs h_mk_fixpoint x_8810 =
+  let fix_lfp = x_8810 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type5 :
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type5 latt eqs h_mk_fixpoint x_19082 =
-  let fix_lfp = x_19082 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type5 latt eqs h_mk_fixpoint x_8812 =
+  let fix_lfp = x_8812 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type3 :
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type3 latt eqs h_mk_fixpoint x_19084 =
-  let fix_lfp = x_19084 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type3 latt eqs h_mk_fixpoint x_8814 =
+  let fix_lfp = x_8814 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type2 :
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type2 latt eqs h_mk_fixpoint x_19086 =
-  let fix_lfp = x_19086 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type2 latt eqs h_mk_fixpoint x_8816 =
+  let fix_lfp = x_8816 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type1 :
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type1 latt eqs h_mk_fixpoint x_19088 =
-  let fix_lfp = x_19088 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type1 latt eqs h_mk_fixpoint x_8818 =
+  let fix_lfp = x_8818 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type0 :
     property_lattice -> equations -> (valuation -> __ -> 'a1) -> fixpoint ->
     'a1 **)
-let rec fixpoint_rect_Type0 latt eqs h_mk_fixpoint x_19090 =
-  let fix_lfp = x_19090 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type0 latt eqs h_mk_fixpoint x_8820 =
+  let fix_lfp = x_8820 in h_mk_fixpoint fix_lfp __
 
 (** val fix_lfp : property_lattice -> equations -> fixpoint -> valuation **)

extracted/frontEndOps.ml

@@ -99 +99 @@
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type4 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13161 = function
-| Ointconst (sz, sg, x_13163) -> h_Ointconst sz sg x_13163
-| Oaddrsymbol (x_13165, x_13164) -> h_Oaddrsymbol x_13165 x_13164
-| Oaddrstack x_13166 -> h_Oaddrstack x_13166
+let rec constant_rect_Type4 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9125 = function
+| Ointconst (sz, sg, x_9127) -> h_Ointconst sz sg x_9127
+| Oaddrsymbol (x_9129, x_9128) -> h_Oaddrsymbol x_9129 x_9128
+| Oaddrstack x_9130 -> h_Oaddrstack x_9130
 
 (** val constant_rect_Type5 :
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type5 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13170 = function
-| Ointconst (sz, sg, x_13172) -> h_Ointconst sz sg x_13172
-| Oaddrsymbol (x_13174, x_13173) -> h_Oaddrsymbol x_13174 x_13173
-| Oaddrstack x_13175 -> h_Oaddrstack x_13175
+let rec constant_rect_Type5 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9134 = function
+| Ointconst (sz, sg, x_9136) -> h_Ointconst sz sg x_9136
+| Oaddrsymbol (x_9138, x_9137) -> h_Oaddrsymbol x_9138 x_9137
+| Oaddrstack x_9139 -> h_Oaddrstack x_9139
 
 (** val constant_rect_Type3 :
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type3 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13179 = function
-| Ointconst (sz, sg, x_13181) -> h_Ointconst sz sg x_13181
-| Oaddrsymbol (x_13183, x_13182) -> h_Oaddrsymbol x_13183 x_13182
-| Oaddrstack x_13184 -> h_Oaddrstack x_13184
+let rec constant_rect_Type3 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9143 = function
+| Ointconst (sz, sg, x_9145) -> h_Ointconst sz sg x_9145
+| Oaddrsymbol (x_9147, x_9146) -> h_Oaddrsymbol x_9147 x_9146
+| Oaddrstack x_9148 -> h_Oaddrstack x_9148
 
 (** val constant_rect_Type2 :
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type2 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13188 = function
-| Ointconst (sz, sg, x_13190) -> h_Ointconst sz sg x_13190
-| Oaddrsymbol (x_13192, x_13191) -> h_Oaddrsymbol x_13192 x_13191
-| Oaddrstack x_13193 -> h_Oaddrstack x_13193
+let rec constant_rect_Type2 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9152 = function
+| Ointconst (sz, sg, x_9154) -> h_Ointconst sz sg x_9154
+| Oaddrsymbol (x_9156, x_9155) -> h_Oaddrsymbol x_9156 x_9155
+| Oaddrstack x_9157 -> h_Oaddrstack x_9157
 
 (** val constant_rect_Type1 :
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type1 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13197 = function
-| Ointconst (sz, sg, x_13199) -> h_Ointconst sz sg x_13199
-| Oaddrsymbol (x_13201, x_13200) -> h_Oaddrsymbol x_13201 x_13200
-| Oaddrstack x_13202 -> h_Oaddrstack x_13202
+let rec constant_rect_Type1 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9161 = function
+| Ointconst (sz, sg, x_9163) -> h_Ointconst sz sg x_9163
+| Oaddrsymbol (x_9165, x_9164) -> h_Oaddrsymbol x_9165 x_9164
+| Oaddrstack x_9166 -> h_Oaddrstack x_9166
 
 (** val constant_rect_Type0 :
     (AST.intsize -> AST.signedness -> AST.bvint -> 'a1) -> (AST.ident ->
     Nat.nat -> 'a1) -> (Nat.nat -> 'a1) -> AST.typ -> constant -> 'a1 **)
-let rec constant_rect_Type0 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13206 = function
-| Ointconst (sz, sg, x_13208) -> h_Ointconst sz sg x_13208
-| Oaddrsymbol (x_13210, x_13209) -> h_Oaddrsymbol x_13210 x_13209
-| Oaddrstack x_13211 -> h_Oaddrstack x_13211
+let rec constant_rect_Type0 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_9170 = function
+| Ointconst (sz, sg, x_9172) -> h_Ointconst sz sg x_9172
+| Oaddrsymbol (x_9174, x_9173) -> h_Oaddrsymbol x_9174 x_9173
+| Oaddrstack x_9175 -> h_Oaddrstack x_9175
 
 (** val constant_inv_rect_Type4 :
@@ -211 +211 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type4 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13281 x_13280 = function
+let rec unary_operation_rect_Type4 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9245 x_9244 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -227 +227 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type5 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13292 x_13291 = function
+let rec unary_operation_rect_Type5 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9256 x_9255 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -243 +243 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type3 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13303 x_13302 = function
+let rec unary_operation_rect_Type3 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9267 x_9266 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -259 +259 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type2 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13314 x_13313 = function
+let rec unary_operation_rect_Type2 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9278 x_9277 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -275 +275 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type1 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13325 x_13324 = function
+let rec unary_operation_rect_Type1 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9289 x_9288 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -291 +291 @@
     (AST.intsize -> AST.signedness -> 'a1) -> AST.typ -> AST.typ ->
     unary_operation -> 'a1 **)
-let rec unary_operation_rect_Type0 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13336 x_13335 = function
+let rec unary_operation_rect_Type0 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_9300 x_9299 = function
 | Ocastint (sz, sg, sz', sg') -> h_Ocastint sz sg sz' sg'
 | Onegint (sz, sg) -> h_Onegint sz sg
@@ -426 +426 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type4 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13441 x_13440 x_13439 = function
+let rec binary_operation_rect_Type4 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9405 x_9404 x_9403 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -440 +440 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13443) -> h_Ocmp sz sg sg' x_13443
-| Ocmpu (sz, sg', x_13444) -> h_Ocmpu sz sg' x_13444
+| Ocmp (sz, sg, sg', x_9407) -> h_Ocmp sz sg sg' x_9407
+| Ocmpu (sz, sg', x_9408) -> h_Ocmpu sz sg' x_9408
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13445) -> h_Ocmpp sg' x_13445
+| Ocmpp (sg', x_9409) -> h_Ocmpp sg' x_9409
 
 (** val binary_operation_rect_Type5 :
@@ -461 +461 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type5 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13468 x_13467 x_13466 = function
+let rec binary_operation_rect_Type5 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9432 x_9431 x_9430 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -475 +475 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13470) -> h_Ocmp sz sg sg' x_13470
-| Ocmpu (sz, sg', x_13471) -> h_Ocmpu sz sg' x_13471
+| Ocmp (sz, sg, sg', x_9434) -> h_Ocmp sz sg sg' x_9434
+| Ocmpu (sz, sg', x_9435) -> h_Ocmpu sz sg' x_9435
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13472) -> h_Ocmpp sg' x_13472
+| Ocmpp (sg', x_9436) -> h_Ocmpp sg' x_9436
 
 (** val binary_operation_rect_Type3 :
@@ -496 +496 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type3 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13495 x_13494 x_13493 = function
+let rec binary_operation_rect_Type3 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9459 x_9458 x_9457 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -510 +510 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13497) -> h_Ocmp sz sg sg' x_13497
-| Ocmpu (sz, sg', x_13498) -> h_Ocmpu sz sg' x_13498
+| Ocmp (sz, sg, sg', x_9461) -> h_Ocmp sz sg sg' x_9461
+| Ocmpu (sz, sg', x_9462) -> h_Ocmpu sz sg' x_9462
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13499) -> h_Ocmpp sg' x_13499
+| Ocmpp (sg', x_9463) -> h_Ocmpp sg' x_9463
 
 (** val binary_operation_rect_Type2 :
@@ -531 +531 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type2 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13522 x_13521 x_13520 = function
+let rec binary_operation_rect_Type2 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9486 x_9485 x_9484 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -545 +545 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13524) -> h_Ocmp sz sg sg' x_13524
-| Ocmpu (sz, sg', x_13525) -> h_Ocmpu sz sg' x_13525
+| Ocmp (sz, sg, sg', x_9488) -> h_Ocmp sz sg sg' x_9488
+| Ocmpu (sz, sg', x_9489) -> h_Ocmpu sz sg' x_9489
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13526) -> h_Ocmpp sg' x_13526
+| Ocmpp (sg', x_9490) -> h_Ocmpp sg' x_9490
 
 (** val binary_operation_rect_Type1 :
@@ -566 +566 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type1 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13549 x_13548 x_13547 = function
+let rec binary_operation_rect_Type1 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9513 x_9512 x_9511 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -580 +580 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13551) -> h_Ocmp sz sg sg' x_13551
-| Ocmpu (sz, sg', x_13552) -> h_Ocmpu sz sg' x_13552
+| Ocmp (sz, sg, sg', x_9515) -> h_Ocmp sz sg sg' x_9515
+| Ocmpu (sz, sg', x_9516) -> h_Ocmpu sz sg' x_9516
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13553) -> h_Ocmpp sg' x_13553
+| Ocmpp (sg', x_9517) -> h_Ocmpp sg' x_9517
 
 (** val binary_operation_rect_Type0 :
@@ -601 +601 @@
     (AST.intsize -> 'a1) -> (AST.signedness -> Integers.comparison -> 'a1) ->
     AST.typ -> AST.typ -> AST.typ -> binary_operation -> 'a1 **)
-let rec binary_operation_rect_Type0 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_13576 x_13575 x_13574 = function
+let rec binary_operation_rect_Type0 h_Oadd h_Osub h_Omul h_Odiv h_Odivu h_Omod h_Omodu h_Oand h_Oor h_Oxor h_Oshl h_Oshr h_Oshru h_Ocmp h_Ocmpu h_Oaddpi h_Oaddip h_Osubpi h_Osubpp h_Ocmpp x_9540 x_9539 x_9538 = function
 | Oadd (sz, sg) -> h_Oadd sz sg
 | Osub (sz, sg) -> h_Osub sz sg
@@ -615 +615 @@
 | Oshr (sz, sg) -> h_Oshr sz sg
 | Oshru (sz, sg) -> h_Oshru sz sg
-| Ocmp (sz, sg, sg', x_13578) -> h_Ocmp sz sg sg' x_13578
-| Ocmpu (sz, sg', x_13579) -> h_Ocmpu sz sg' x_13579
+| Ocmp (sz, sg, sg', x_9542) -> h_Ocmp sz sg sg' x_9542
+| Ocmpu (sz, sg', x_9543) -> h_Ocmpu sz sg' x_9543
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13580) -> h_Ocmpp sg' x_13580
+| Ocmpp (sg', x_9544) -> h_Ocmpp sg' x_9544
 
 (** val binary_operation_inv_rect_Type4 :

extracted/genMem.ml

@@ -100 +100 @@
 (** val block_contents_rect_Type4 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type4 h_mk_block_contents x_6555 =
-  let { low = low0; high = high0; contents = contents0 } = x_6555 in
+let rec block_contents_rect_Type4 h_mk_block_contents x_6504 =
+  let { low = low0; high = high0; contents = contents0 } = x_6504 in
   h_mk_block_contents low0 high0 contents0
 
 (** val block_contents_rect_Type5 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type5 h_mk_block_contents x_6557 =
-  let { low = low0; high = high0; contents = contents0 } = x_6557 in
+let rec block_contents_rect_Type5 h_mk_block_contents x_6506 =
+  let { low = low0; high = high0; contents = contents0 } = x_6506 in
   h_mk_block_contents low0 high0 contents0
 
 (** val block_contents_rect_Type3 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type3 h_mk_block_contents x_6559 =
-  let { low = low0; high = high0; contents = contents0 } = x_6559 in
+let rec block_contents_rect_Type3 h_mk_block_contents x_6508 =
+  let { low = low0; high = high0; contents = contents0 } = x_6508 in
   h_mk_block_contents low0 high0 contents0
 
 (** val block_contents_rect_Type2 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type2 h_mk_block_contents x_6561 =
-  let { low = low0; high = high0; contents = contents0 } = x_6561 in
+let rec block_contents_rect_Type2 h_mk_block_contents x_6510 =
+  let { low = low0; high = high0; contents = contents0 } = x_6510 in
   h_mk_block_contents low0 high0 contents0
 
 (** val block_contents_rect_Type1 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type1 h_mk_block_contents x_6563 =
-  let { low = low0; high = high0; contents = contents0 } = x_6563 in
+let rec block_contents_rect_Type1 h_mk_block_contents x_6512 =
+  let { low = low0; high = high0; contents = contents0 } = x_6512 in
   h_mk_block_contents low0 high0 contents0
 
 (** val block_contents_rect_Type0 :
     (Z.z -> Z.z -> contentmap -> 'a1) -> block_contents -> 'a1 **)
-let rec block_contents_rect_Type0 h_mk_block_contents x_6565 =
-  let { low = low0; high = high0; contents = contents0 } = x_6565 in
+let rec block_contents_rect_Type0 h_mk_block_contents x_6514 =
+  let { low = low0; high = high0; contents = contents0 } = x_6514 in
   h_mk_block_contents low0 high0 contents0
 
@@ -187 +187 @@
 (** val mem_rect_Type4 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type4 h_mk_mem x_6581 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6581 in
+let rec mem_rect_Type4 h_mk_mem x_6530 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6530 in
   h_mk_mem blocks0 nextblock0 __
 
 (** val mem_rect_Type5 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type5 h_mk_mem x_6583 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6583 in
+let rec mem_rect_Type5 h_mk_mem x_6532 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6532 in
   h_mk_mem blocks0 nextblock0 __
 
 (** val mem_rect_Type3 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type3 h_mk_mem x_6585 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6585 in
+let rec mem_rect_Type3 h_mk_mem x_6534 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6534 in
   h_mk_mem blocks0 nextblock0 __
 
 (** val mem_rect_Type2 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type2 h_mk_mem x_6587 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6587 in
+let rec mem_rect_Type2 h_mk_mem x_6536 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6536 in
   h_mk_mem blocks0 nextblock0 __
 
 (** val mem_rect_Type1 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type1 h_mk_mem x_6589 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6589 in
+let rec mem_rect_Type1 h_mk_mem x_6538 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6538 in
   h_mk_mem blocks0 nextblock0 __
 
 (** val mem_rect_Type0 :
     ((Pointers.block -> block_contents) -> Z.z -> __ -> 'a1) -> mem -> 'a1 **)
-let rec mem_rect_Type0 h_mk_mem x_6591 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6591 in
+let rec mem_rect_Type0 h_mk_mem x_6540 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6540 in
   h_mk_mem blocks0 nextblock0 __
 

extracted/globalenvs.ml

@@ -98 +98 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type4 h_mk_genv_t x_6608 =
+let rec genv_t_rect_Type4 h_mk_genv_t x_6557 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6608
+    symbols0 } = x_6557
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -107 +107 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type5 h_mk_genv_t x_6610 =
+let rec genv_t_rect_Type5 h_mk_genv_t x_6559 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6610
+    symbols0 } = x_6559
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -116 +116 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type3 h_mk_genv_t x_6612 =
+let rec genv_t_rect_Type3 h_mk_genv_t x_6561 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6612
+    symbols0 } = x_6561
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -125 +125 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type2 h_mk_genv_t x_6614 =
+let rec genv_t_rect_Type2 h_mk_genv_t x_6563 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6614
+    symbols0 } = x_6563
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -134 +134 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type1 h_mk_genv_t x_6616 =
+let rec genv_t_rect_Type1 h_mk_genv_t x_6565 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6616
+    symbols0 } = x_6565
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -143 +143 @@
     ('a1 PositiveMap.positive_map -> Positive.pos -> Pointers.block
     Identifiers.identifier_map -> __ -> 'a2) -> 'a1 genv_t -> 'a2 **)
-let rec genv_t_rect_Type0 h_mk_genv_t x_6618 =
+let rec genv_t_rect_Type0 h_mk_genv_t x_6567 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6618
+    symbols0 } = x_6567
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __
@@ -314 +314 @@
 let add_globals extract_init init_env vars =
   Util.foldl (fun g_st id_init ->
-    let { Types.fst = eta1341; Types.snd = init_info } = id_init in
-    let { Types.fst = id; Types.snd = r } = eta1341 in
+    let { Types.fst = eta27696; Types.snd = init_info } = id_init in
+    let { Types.fst = id; Types.snd = r } = eta27696 in
     let init = extract_init init_info in
     let { Types.fst = g; Types.snd = st } = g_st in
@@ -330 +330 @@
 let init_globals extract_init g m vars =
   Util.foldl (fun st id_init ->
-    let { Types.fst = eta1342; Types.snd = init_info } = id_init in
-    let { Types.fst = id; Types.snd = r } = eta1342 in
+    let { Types.fst = eta27697; Types.snd = init_info } = id_init in
+    let { Types.fst = id; Types.snd = r } = eta27697 in
     let init = extract_init init_info in
     Obj.magic

extracted/iO.ml

@@ -150 +150 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type4 h_mk_io_out x_5886 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5886
+let rec io_out_rect_Type4 h_mk_io_out x_4871 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4871
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0
@@ -159 +159 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type5 h_mk_io_out x_5888 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5888
+let rec io_out_rect_Type5 h_mk_io_out x_4873 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4873
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0
@@ -168 +168 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type3 h_mk_io_out x_5890 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5890
+let rec io_out_rect_Type3 h_mk_io_out x_4875 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4875
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0
@@ -177 +177 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type2 h_mk_io_out x_5892 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5892
+let rec io_out_rect_Type2 h_mk_io_out x_4877 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4877
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0
@@ -186 +186 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type1 h_mk_io_out x_5894 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5894
+let rec io_out_rect_Type1 h_mk_io_out x_4879 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4879
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0
@@ -195 +195 @@
     (AST.ident -> Events.eventval List.list -> AST.typ -> 'a1) -> io_out ->
     'a1 **)
-let rec io_out_rect_Type0 h_mk_io_out x_5896 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5896
+let rec io_out_rect_Type0 h_mk_io_out x_4881 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_4881
   in
   h_mk_io_out io_function0 io_args0 io_in_typ0

extracted/iOMonad.ml

@@ -52 +52 @@
     'a4) -> (Errors.errmsg -> 'a4) -> ('a1, 'a2, 'a3) iO -> 'a4 **)
 let rec iO_rect_Type4 h_Interact h_Value h_Wrong = function
-| Interact (o, x_4672) ->
-  h_Interact o x_4672 (fun x_4671 ->
-    iO_rect_Type4 h_Interact h_Value h_Wrong (x_4672 x_4671))
-| Value x_4673 -> h_Value x_4673
-| Wrong x_4674 -> h_Wrong x_4674
+| Interact (o, x_4775) ->
+  h_Interact o x_4775 (fun x_4774 ->
+    iO_rect_Type4 h_Interact h_Value h_Wrong (x_4775 x_4774))
+| Value x_4776 -> h_Value x_4776
+| Wrong x_4777 -> h_Wrong x_4777
 
 (** val iO_rect_Type3 :
@@ -62 +62 @@
     'a4) -> (Errors.errmsg -> 'a4) -> ('a1, 'a2, 'a3) iO -> 'a4 **)
 let rec iO_rect_Type3 h_Interact h_Value h_Wrong = function
-| Interact (o, x_4688) ->
-  h_Interact o x_4688 (fun x_4687 ->
-    iO_rect_Type3 h_Interact h_Value h_Wrong (x_4688 x_4687))
-| Value x_4689 -> h_Value x_4689
-| Wrong x_4690 -> h_Wrong x_4690
+| Interact (o, x_4791) ->
+  h_Interact o x_4791 (fun x_4790 ->
+    iO_rect_Type3 h_Interact h_Value h_Wrong (x_4791 x_4790))
+| Value x_4792 -> h_Value x_4792
+| Wrong x_4793 -> h_Wrong x_4793
 
 (** val iO_rect_Type2 :
@@ -72 +72 @@
     'a4) -> (Errors.errmsg -> 'a4) -> ('a1, 'a2, 'a3) iO -> 'a4 **)
 let rec iO_rect_Type2 h_Interact h_Value h_Wrong = function
-| Interact (o, x_4696) ->
-  h_Interact o x_4696 (fun x_4695 ->
-    iO_rect_Type2 h_Interact h_Value h_Wrong (x_4696 x_4695))
-| Value x_4697 -> h_Value x_4697
-| Wrong x_4698 -> h_Wrong x_4698
+| Interact (o, x_4799) ->
+  h_Interact o x_4799 (fun x_4798 ->
+    iO_rect_Type2 h_Interact h_Value h_Wrong (x_4799 x_4798))
+| Value x_4800 -> h_Value x_4800
+| Wrong x_4801 -> h_Wrong x_4801
 
 (** val iO_rect_Type1 :
@@ -82 +82 @@
     'a4) -> (Errors.errmsg -> 'a4) -> ('a1, 'a2, 'a3) iO -> 'a4 **)
 let rec iO_rect_Type1 h_Interact h_Value h_Wrong = function
-| Interact (o, x_4704) ->
-  h_Interact o x_4704 (fun x_4703 ->
-    iO_rect_Type1 h_Interact h_Value h_Wrong (x_4704 x_4703))
-| Value x_4705 -> h_Value x_4705
-| Wrong x_4706 -> h_Wrong x_4706
+| Interact (o, x_4807) ->
+  h_Interact o x_4807 (fun x_4806 ->
+    iO_rect_Type1 h_Interact h_Value h_Wrong (x_4807 x_4806))
+| Value x_4808 -> h_Value x_4808
+| Wrong x_4809 -> h_Wrong x_4809
 
 (** val iO_rect_Type0 :
@@ -92 +92 @@
     'a4) -> (Errors.errmsg -> 'a4) -> ('a1, 'a2, 'a3) iO -> 'a4 **)
 let rec iO_rect_Type0 h_Interact h_Value h_Wrong = function
-| Interact (o, x_4712) ->
-  h_Interact o x_4712 (fun x_4711 ->
-    iO_rect_Type0 h_Interact h_Value h_Wrong (x_4712 x_4711))
-| Value x_4713 -> h_Value x_4713
-| Wrong x_4714 -> h_Wrong x_4714
+| Interact (o, x_4815) ->
+  h_Interact o x_4815 (fun x_4814 ->
+    iO_rect_Type0 h_Interact h_Value h_Wrong (x_4815 x_4814))
+| Value x_4816 -> h_Value x_4816
+| Wrong x_4817 -> h_Wrong x_4817
 
 (** val iO_inv_rect_Type4 :

extracted/identifiers.ml

@@ -51 +51 @@
 (** val universe_rect_Type4 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type4 tag h_mk_universe x_3226 =
-  let next_identifier = x_3226 in h_mk_universe next_identifier
+let rec universe_rect_Type4 tag h_mk_universe x_133 =
+  let next_identifier = x_133 in h_mk_universe next_identifier
 
 (** val universe_rect_Type5 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type5 tag h_mk_universe x_3228 =
-  let next_identifier = x_3228 in h_mk_universe next_identifier
+let rec universe_rect_Type5 tag h_mk_universe x_135 =
+  let next_identifier = x_135 in h_mk_universe next_identifier
 
 (** val universe_rect_Type3 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type3 tag h_mk_universe x_3230 =
-  let next_identifier = x_3230 in h_mk_universe next_identifier
+let rec universe_rect_Type3 tag h_mk_universe x_137 =
+  let next_identifier = x_137 in h_mk_universe next_identifier
 
 (** val universe_rect_Type2 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type2 tag h_mk_universe x_3232 =
-  let next_identifier = x_3232 in h_mk_universe next_identifier
+let rec universe_rect_Type2 tag h_mk_universe x_139 =
+  let next_identifier = x_139 in h_mk_universe next_identifier
 
 (** val universe_rect_Type1 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type1 tag h_mk_universe x_3234 =
-  let next_identifier = x_3234 in h_mk_universe next_identifier
+let rec universe_rect_Type1 tag h_mk_universe x_141 =
+  let next_identifier = x_141 in h_mk_universe next_identifier
 
 (** val universe_rect_Type0 :
     PreIdentifiers.identifierTag -> (Positive.pos -> 'a1) -> universe -> 'a1 **)
-let rec universe_rect_Type0 tag h_mk_universe x_3236 =
-  let next_identifier = x_3236 in h_mk_universe next_identifier
+let rec universe_rect_Type0 tag h_mk_universe x_143 =
+  let next_identifier = x_143 in h_mk_universe next_identifier
 
 (** val next_identifier :
@@ -215 +215 @@
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type4 tag h_an_id_map x_3398 =
-  let x_3399 = x_3398 in h_an_id_map x_3399
+let rec identifier_map_rect_Type4 tag h_an_id_map x_160 =
+  let x_161 = x_160 in h_an_id_map x_161
 
 (** val identifier_map_rect_Type5 :
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type5 tag h_an_id_map x_3401 =
-  let x_3402 = x_3401 in h_an_id_map x_3402
+let rec identifier_map_rect_Type5 tag h_an_id_map x_163 =
+  let x_164 = x_163 in h_an_id_map x_164
 
 (** val identifier_map_rect_Type3 :
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type3 tag h_an_id_map x_3404 =
-  let x_3405 = x_3404 in h_an_id_map x_3405
+let rec identifier_map_rect_Type3 tag h_an_id_map x_166 =
+  let x_167 = x_166 in h_an_id_map x_167
 
 (** val identifier_map_rect_Type2 :
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type2 tag h_an_id_map x_3407 =
-  let x_3408 = x_3407 in h_an_id_map x_3408
+let rec identifier_map_rect_Type2 tag h_an_id_map x_169 =
+  let x_170 = x_169 in h_an_id_map x_170
 
 (** val identifier_map_rect_Type1 :
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type1 tag h_an_id_map x_3410 =
-  let x_3411 = x_3410 in h_an_id_map x_3411
+let rec identifier_map_rect_Type1 tag h_an_id_map x_172 =
+  let x_173 = x_172 in h_an_id_map x_173
 
 (** val identifier_map_rect_Type0 :
     PreIdentifiers.identifierTag -> ('a1 PositiveMap.positive_map -> 'a2) ->
     'a1 identifier_map -> 'a2 **)
-let rec identifier_map_rect_Type0 tag h_an_id_map x_3413 =
-  let x_3414 = x_3413 in h_an_id_map x_3414
+let rec identifier_map_rect_Type0 tag h_an_id_map x_175 =
+  let x_176 = x_175 in h_an_id_map x_176
 
 (** val identifier_map_inv_rect_Type4 :

extracted/interference.ml

@@ -136 +136 @@
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type4 h_decision_spill h_decision_colour = function
-| Decision_spill x_281 -> h_decision_spill x_281
-| Decision_colour x_282 -> h_decision_colour x_282
+| Decision_spill x_7 -> h_decision_spill x_7
+| Decision_colour x_8 -> h_decision_colour x_8
 
 (** val decision_rect_Type5 :
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type5 h_decision_spill h_decision_colour = function
-| Decision_spill x_286 -> h_decision_spill x_286
-| Decision_colour x_287 -> h_decision_colour x_287
+| Decision_spill x_12 -> h_decision_spill x_12
+| Decision_colour x_13 -> h_decision_colour x_13
 
 (** val decision_rect_Type3 :
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type3 h_decision_spill h_decision_colour = function
-| Decision_spill x_291 -> h_decision_spill x_291
-| Decision_colour x_292 -> h_decision_colour x_292
+| Decision_spill x_17 -> h_decision_spill x_17
+| Decision_colour x_18 -> h_decision_colour x_18
 
 (** val decision_rect_Type2 :
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type2 h_decision_spill h_decision_colour = function
-| Decision_spill x_296 -> h_decision_spill x_296
-| Decision_colour x_297 -> h_decision_colour x_297
+| Decision_spill x_22 -> h_decision_spill x_22
+| Decision_colour x_23 -> h_decision_colour x_23
 
 (** val decision_rect_Type1 :
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type1 h_decision_spill h_decision_colour = function
-| Decision_spill x_301 -> h_decision_spill x_301
-| Decision_colour x_302 -> h_decision_colour x_302
+| Decision_spill x_27 -> h_decision_spill x_27
+| Decision_colour x_28 -> h_decision_colour x_28
 
 (** val decision_rect_Type0 :
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type0 h_decision_spill h_decision_colour = function
-| Decision_spill x_306 -> h_decision_spill x_306
-| Decision_colour x_307 -> h_decision_colour x_307
+| Decision_spill x_32 -> h_decision_spill x_32
+| Decision_colour x_33 -> h_decision_colour x_33
 
 (** val decision_inv_rect_Type4 :
@@ -219 +219 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type4 before h_mk_coloured_graph x_342 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_342 in
+let rec coloured_graph_rect_Type4 before h_mk_coloured_graph x_68 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_68 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -226 +226 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type5 before h_mk_coloured_graph x_344 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_344 in
+let rec coloured_graph_rect_Type5 before h_mk_coloured_graph x_70 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_70 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -233 +233 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type3 before h_mk_coloured_graph x_346 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_346 in
+let rec coloured_graph_rect_Type3 before h_mk_coloured_graph x_72 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_72 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -240 +240 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type2 before h_mk_coloured_graph x_348 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_348 in
+let rec coloured_graph_rect_Type2 before h_mk_coloured_graph x_74 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_74 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -247 +247 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type1 before h_mk_coloured_graph x_350 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_350 in
+let rec coloured_graph_rect_Type1 before h_mk_coloured_graph x_76 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_76 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -254 +254 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type0 before h_mk_coloured_graph x_352 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_352 in
+let rec coloured_graph_rect_Type0 before h_mk_coloured_graph x_78 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_78 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 

extracted/interpret2.ml

@@ -165 +165 @@
     ASM.labelled_object_code -> Measurable.preclassified_system **)
 let oC_preclassified_system c =
-  let lcm =(Fetch.load_code_memory c.ASM.oc) in
+  let lcm = Fetch.load_code_memory c.ASM.oc in
   mk_preclassified_system_of_abstract_status (ASMCosts.oC_abstract_status c)
     (fun st ->
     Monad.m_return0 (Monad.max_def IOMonad.iOMonad)
-      (Interpret.execute_1 lcm (Obj.magic st))
-    )
+      (Interpret.execute_1 lcm (Obj.magic st)))
     (Obj.magic (Status.initialise_status (Fetch.load_code_memory c.ASM.oc)))
 

extracted/joint.ml

@@ -110 +110 @@
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type4 h_Reg h_Imm = function
-| Reg x_16908 -> h_Reg x_16908
-| Imm x_16909 -> h_Imm x_16909
+| Reg x_224 -> h_Reg x_224
+| Imm x_225 -> h_Imm x_225
 
 (** val argument_rect_Type5 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type5 h_Reg h_Imm = function
-| Reg x_16913 -> h_Reg x_16913
-| Imm x_16914 -> h_Imm x_16914
+| Reg x_229 -> h_Reg x_229
+| Imm x_230 -> h_Imm x_230
 
 (** val argument_rect_Type3 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type3 h_Reg h_Imm = function
-| Reg x_16918 -> h_Reg x_16918
-| Imm x_16919 -> h_Imm x_16919
+| Reg x_234 -> h_Reg x_234
+| Imm x_235 -> h_Imm x_235
 
 (** val argument_rect_Type2 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type2 h_Reg h_Imm = function
-| Reg x_16923 -> h_Reg x_16923
-| Imm x_16924 -> h_Imm x_16924
+| Reg x_239 -> h_Reg x_239
+| Imm x_240 -> h_Imm x_240
 
 (** val argument_rect_Type1 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type1 h_Reg h_Imm = function
-| Reg x_16928 -> h_Reg x_16928
-| Imm x_16929 -> h_Imm x_16929
+| Reg x_244 -> h_Reg x_244
+| Imm x_245 -> h_Imm x_245
 
 (** val argument_rect_Type0 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type0 h_Reg h_Imm = function
-| Reg x_16933 -> h_Reg x_16933
-| Imm x_16934 -> h_Imm x_16934
+| Reg x_249 -> h_Reg x_249
+| Imm x_250 -> h_Imm x_250
 
 (** val argument_inv_rect_Type4 :
@@ -324 +324 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type4 h_mk_unserialized_params x_16969 =
+let rec unserialized_params_rect_Type4 h_mk_unserialized_params x_285 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16969
+    x_285
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -335 +335 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type5 h_mk_unserialized_params x_16971 =
+let rec unserialized_params_rect_Type5 h_mk_unserialized_params x_287 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16971
+    x_287
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -346 +346 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type3 h_mk_unserialized_params x_16973 =
+let rec unserialized_params_rect_Type3 h_mk_unserialized_params x_289 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16973
+    x_289
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -357 +357 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type2 h_mk_unserialized_params x_16975 =
+let rec unserialized_params_rect_Type2 h_mk_unserialized_params x_291 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16975
+    x_291
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -368 +368 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type1 h_mk_unserialized_params x_16977 =
+let rec unserialized_params_rect_Type1 h_mk_unserialized_params x_293 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16977
+    x_293
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -379 +379 @@
     __ -> (__ -> Graphs.label List.list) -> Bool.bool -> __ -> 'a1) ->
     unserialized_params -> 'a1 **)
-let rec unserialized_params_rect_Type0 h_mk_unserialized_params x_16979 =
+let rec unserialized_params_rect_Type0 h_mk_unserialized_params x_295 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_16979
+    x_295
   in
   h_mk_unserialized_params __ __ __ __ __ __ __ __ __ __ __ __ __
@@ -506 +506 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type4 p h_mk_get_pseudo_reg_functs x_16996 =
+let rec get_pseudo_reg_functs_rect_Type4 p h_mk_get_pseudo_reg_functs x_312 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -512 +512 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_16996
+    params_regs0 } = x_312
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -529 +529 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type5 p h_mk_get_pseudo_reg_functs x_16998 =
+let rec get_pseudo_reg_functs_rect_Type5 p h_mk_get_pseudo_reg_functs x_314 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -535 +535 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_16998
+    params_regs0 } = x_314
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -552 +552 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type3 p h_mk_get_pseudo_reg_functs x_17000 =
+let rec get_pseudo_reg_functs_rect_Type3 p h_mk_get_pseudo_reg_functs x_316 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -558 +558 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_17000
+    params_regs0 } = x_316
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -575 +575 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type2 p h_mk_get_pseudo_reg_functs x_17002 =
+let rec get_pseudo_reg_functs_rect_Type2 p h_mk_get_pseudo_reg_functs x_318 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -581 +581 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_17002
+    params_regs0 } = x_318
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -598 +598 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type1 p h_mk_get_pseudo_reg_functs x_17004 =
+let rec get_pseudo_reg_functs_rect_Type1 p h_mk_get_pseudo_reg_functs x_320 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -604 +604 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_17004
+    params_regs0 } = x_320
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -621 +621 @@
     (__ -> Registers.register List.list) -> 'a1) -> get_pseudo_reg_functs ->
     'a1 **)
-let rec get_pseudo_reg_functs_rect_Type0 p h_mk_get_pseudo_reg_functs x_17006 =
+let rec get_pseudo_reg_functs_rect_Type0 p h_mk_get_pseudo_reg_functs x_322 =
   let { acc_a_regs = acc_a_regs0; acc_b_regs = acc_b_regs0; acc_a_args =
     acc_a_args0; acc_b_args = acc_b_args0; dpl_regs = dpl_regs0; dph_regs =
@@ -627 +627 @@
     snd_args0; pair_move_regs = pair_move_regs0; f_call_args = f_call_args0;
     f_call_dest = f_call_dest0; ext_seq_regs = ext_seq_regs0; params_regs =
-    params_regs0 } = x_17006
+    params_regs0 } = x_322
   in
   h_mk_get_pseudo_reg_functs acc_a_regs0 acc_b_regs0 acc_a_args0 acc_b_args0
@@ -805 +805 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type4 h_mk_uns_params x_17036 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17036 in
+let rec uns_params_rect_Type4 h_mk_uns_params x_352 =
+  let { u_pars = u_pars0; functs = functs0 } = x_352 in
   h_mk_uns_params u_pars0 functs0
 
@@ -812 +812 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type5 h_mk_uns_params x_17038 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17038 in
+let rec uns_params_rect_Type5 h_mk_uns_params x_354 =
+  let { u_pars = u_pars0; functs = functs0 } = x_354 in
   h_mk_uns_params u_pars0 functs0
 
@@ -819 +819 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type3 h_mk_uns_params x_17040 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17040 in
+let rec uns_params_rect_Type3 h_mk_uns_params x_356 =
+  let { u_pars = u_pars0; functs = functs0 } = x_356 in
   h_mk_uns_params u_pars0 functs0
 
@@ -826 +826 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type2 h_mk_uns_params x_17042 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17042 in
+let rec uns_params_rect_Type2 h_mk_uns_params x_358 =
+  let { u_pars = u_pars0; functs = functs0 } = x_358 in
   h_mk_uns_params u_pars0 functs0
 
@@ -833 +833 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type1 h_mk_uns_params x_17044 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17044 in
+let rec uns_params_rect_Type1 h_mk_uns_params x_360 =
+  let { u_pars = u_pars0; functs = functs0 } = x_360 in
   h_mk_uns_params u_pars0 functs0
 
@@ -840 +840 @@
     (unserialized_params -> get_pseudo_reg_functs -> 'a1) -> uns_params ->
     'a1 **)
-let rec uns_params_rect_Type0 h_mk_uns_params x_17046 =
-  let { u_pars = u_pars0; functs = functs0 } = x_17046 in
+let rec uns_params_rect_Type0 h_mk_uns_params x_362 =
+  let { u_pars = u_pars0; functs = functs0 } = x_362 in
   h_mk_uns_params u_pars0 functs0
 
@@ -911 +911 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type4 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17101 -> h_COMMENT x_17101
-| MOVE x_17102 -> h_MOVE x_17102
-| POP x_17103 -> h_POP x_17103
-| PUSH x_17104 -> h_PUSH x_17104
-| ADDRESS (i, x_17106, x_17105) -> h_ADDRESS i __ x_17106 x_17105
-| OPACCS (x_17112, x_17111, x_17110, x_17109, x_17108) ->
-  h_OPACCS x_17112 x_17111 x_17110 x_17109 x_17108
-| OP1 (x_17115, x_17114, x_17113) -> h_OP1 x_17115 x_17114 x_17113
-| OP2 (x_17119, x_17118, x_17117, x_17116) ->
-  h_OP2 x_17119 x_17118 x_17117 x_17116
+| COMMENT x_417 -> h_COMMENT x_417
+| MOVE x_418 -> h_MOVE x_418
+| POP x_419 -> h_POP x_419
+| PUSH x_420 -> h_PUSH x_420
+| ADDRESS (i, x_422, x_421) -> h_ADDRESS i __ x_422 x_421
+| OPACCS (x_428, x_427, x_426, x_425, x_424) ->
+  h_OPACCS x_428 x_427 x_426 x_425 x_424
+| OP1 (x_431, x_430, x_429) -> h_OP1 x_431 x_430 x_429
+| OP2 (x_435, x_434, x_433, x_432) -> h_OP2 x_435 x_434 x_433 x_432
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17122, x_17121, x_17120) -> h_LOAD x_17122 x_17121 x_17120
-| STORE (x_17125, x_17124, x_17123) -> h_STORE x_17125 x_17124 x_17123
-| Extension_seq x_17126 -> h_extension_seq x_17126
+| LOAD (x_438, x_437, x_436) -> h_LOAD x_438 x_437 x_436
+| STORE (x_441, x_440, x_439) -> h_STORE x_441 x_440 x_439
+| Extension_seq x_442 -> h_extension_seq x_442
 
 (** val joint_seq_rect_Type5 :
@@ -935 +934 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type5 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17141 -> h_COMMENT x_17141
-| MOVE x_17142 -> h_MOVE x_17142
-| POP x_17143 -> h_POP x_17143
-| PUSH x_17144 -> h_PUSH x_17144
-| ADDRESS (i, x_17146, x_17145) -> h_ADDRESS i __ x_17146 x_17145
-| OPACCS (x_17152, x_17151, x_17150, x_17149, x_17148) ->
-  h_OPACCS x_17152 x_17151 x_17150 x_17149 x_17148
-| OP1 (x_17155, x_17154, x_17153) -> h_OP1 x_17155 x_17154 x_17153
-| OP2 (x_17159, x_17158, x_17157, x_17156) ->
-  h_OP2 x_17159 x_17158 x_17157 x_17156
+| COMMENT x_457 -> h_COMMENT x_457
+| MOVE x_458 -> h_MOVE x_458
+| POP x_459 -> h_POP x_459
+| PUSH x_460 -> h_PUSH x_460
+| ADDRESS (i, x_462, x_461) -> h_ADDRESS i __ x_462 x_461
+| OPACCS (x_468, x_467, x_466, x_465, x_464) ->
+  h_OPACCS x_468 x_467 x_466 x_465 x_464
+| OP1 (x_471, x_470, x_469) -> h_OP1 x_471 x_470 x_469
+| OP2 (x_475, x_474, x_473, x_472) -> h_OP2 x_475 x_474 x_473 x_472
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17162, x_17161, x_17160) -> h_LOAD x_17162 x_17161 x_17160
-| STORE (x_17165, x_17164, x_17163) -> h_STORE x_17165 x_17164 x_17163
-| Extension_seq x_17166 -> h_extension_seq x_17166
+| LOAD (x_478, x_477, x_476) -> h_LOAD x_478 x_477 x_476
+| STORE (x_481, x_480, x_479) -> h_STORE x_481 x_480 x_479
+| Extension_seq x_482 -> h_extension_seq x_482
 
 (** val joint_seq_rect_Type3 :
@@ -959 +957 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type3 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17181 -> h_COMMENT x_17181
-| MOVE x_17182 -> h_MOVE x_17182
-| POP x_17183 -> h_POP x_17183
-| PUSH x_17184 -> h_PUSH x_17184
-| ADDRESS (i, x_17186, x_17185) -> h_ADDRESS i __ x_17186 x_17185
-| OPACCS (x_17192, x_17191, x_17190, x_17189, x_17188) ->
-  h_OPACCS x_17192 x_17191 x_17190 x_17189 x_17188
-| OP1 (x_17195, x_17194, x_17193) -> h_OP1 x_17195 x_17194 x_17193
-| OP2 (x_17199, x_17198, x_17197, x_17196) ->
-  h_OP2 x_17199 x_17198 x_17197 x_17196
+| COMMENT x_497 -> h_COMMENT x_497
+| MOVE x_498 -> h_MOVE x_498
+| POP x_499 -> h_POP x_499
+| PUSH x_500 -> h_PUSH x_500
+| ADDRESS (i, x_502, x_501) -> h_ADDRESS i __ x_502 x_501
+| OPACCS (x_508, x_507, x_506, x_505, x_504) ->
+  h_OPACCS x_508 x_507 x_506 x_505 x_504
+| OP1 (x_511, x_510, x_509) -> h_OP1 x_511 x_510 x_509
+| OP2 (x_515, x_514, x_513, x_512) -> h_OP2 x_515 x_514 x_513 x_512
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17202, x_17201, x_17200) -> h_LOAD x_17202 x_17201 x_17200
-| STORE (x_17205, x_17204, x_17203) -> h_STORE x_17205 x_17204 x_17203
-| Extension_seq x_17206 -> h_extension_seq x_17206
+| LOAD (x_518, x_517, x_516) -> h_LOAD x_518 x_517 x_516
+| STORE (x_521, x_520, x_519) -> h_STORE x_521 x_520 x_519
+| Extension_seq x_522 -> h_extension_seq x_522
 
 (** val joint_seq_rect_Type2 :
@@ -983 +980 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type2 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17221 -> h_COMMENT x_17221
-| MOVE x_17222 -> h_MOVE x_17222
-| POP x_17223 -> h_POP x_17223
-| PUSH x_17224 -> h_PUSH x_17224
-| ADDRESS (i, x_17226, x_17225) -> h_ADDRESS i __ x_17226 x_17225
-| OPACCS (x_17232, x_17231, x_17230, x_17229, x_17228) ->
-  h_OPACCS x_17232 x_17231 x_17230 x_17229 x_17228
-| OP1 (x_17235, x_17234, x_17233) -> h_OP1 x_17235 x_17234 x_17233
-| OP2 (x_17239, x_17238, x_17237, x_17236) ->
-  h_OP2 x_17239 x_17238 x_17237 x_17236
+| COMMENT x_537 -> h_COMMENT x_537
+| MOVE x_538 -> h_MOVE x_538
+| POP x_539 -> h_POP x_539
+| PUSH x_540 -> h_PUSH x_540
+| ADDRESS (i, x_542, x_541) -> h_ADDRESS i __ x_542 x_541
+| OPACCS (x_548, x_547, x_546, x_545, x_544) ->
+  h_OPACCS x_548 x_547 x_546 x_545 x_544
+| OP1 (x_551, x_550, x_549) -> h_OP1 x_551 x_550 x_549
+| OP2 (x_555, x_554, x_553, x_552) -> h_OP2 x_555 x_554 x_553 x_552
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17242, x_17241, x_17240) -> h_LOAD x_17242 x_17241 x_17240
-| STORE (x_17245, x_17244, x_17243) -> h_STORE x_17245 x_17244 x_17243
-| Extension_seq x_17246 -> h_extension_seq x_17246
+| LOAD (x_558, x_557, x_556) -> h_LOAD x_558 x_557 x_556
+| STORE (x_561, x_560, x_559) -> h_STORE x_561 x_560 x_559
+| Extension_seq x_562 -> h_extension_seq x_562
 
 (** val joint_seq_rect_Type1 :
@@ -1007 +1003 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type1 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17261 -> h_COMMENT x_17261
-| MOVE x_17262 -> h_MOVE x_17262
-| POP x_17263 -> h_POP x_17263
-| PUSH x_17264 -> h_PUSH x_17264
-| ADDRESS (i, x_17266, x_17265) -> h_ADDRESS i __ x_17266 x_17265
-| OPACCS (x_17272, x_17271, x_17270, x_17269, x_17268) ->
-  h_OPACCS x_17272 x_17271 x_17270 x_17269 x_17268
-| OP1 (x_17275, x_17274, x_17273) -> h_OP1 x_17275 x_17274 x_17273
-| OP2 (x_17279, x_17278, x_17277, x_17276) ->
-  h_OP2 x_17279 x_17278 x_17277 x_17276
+| COMMENT x_577 -> h_COMMENT x_577
+| MOVE x_578 -> h_MOVE x_578
+| POP x_579 -> h_POP x_579
+| PUSH x_580 -> h_PUSH x_580
+| ADDRESS (i, x_582, x_581) -> h_ADDRESS i __ x_582 x_581
+| OPACCS (x_588, x_587, x_586, x_585, x_584) ->
+  h_OPACCS x_588 x_587 x_586 x_585 x_584
+| OP1 (x_591, x_590, x_589) -> h_OP1 x_591 x_590 x_589
+| OP2 (x_595, x_594, x_593, x_592) -> h_OP2 x_595 x_594 x_593 x_592
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17282, x_17281, x_17280) -> h_LOAD x_17282 x_17281 x_17280
-| STORE (x_17285, x_17284, x_17283) -> h_STORE x_17285 x_17284 x_17283
-| Extension_seq x_17286 -> h_extension_seq x_17286
+| LOAD (x_598, x_597, x_596) -> h_LOAD x_598 x_597 x_596
+| STORE (x_601, x_600, x_599) -> h_STORE x_601 x_600 x_599
+| Extension_seq x_602 -> h_extension_seq x_602
 
 (** val joint_seq_rect_Type0 :
@@ -1031 +1026 @@
     'a1) -> (__ -> 'a1) -> joint_seq -> 'a1 **)
 let rec joint_seq_rect_Type0 p globals h_COMMENT h_MOVE h_POP h_PUSH h_ADDRESS h_OPACCS h_OP1 h_OP2 h_CLEAR_CARRY h_SET_CARRY h_LOAD h_STORE h_extension_seq = function
-| COMMENT x_17301 -> h_COMMENT x_17301
-| MOVE x_17302 -> h_MOVE x_17302
-| POP x_17303 -> h_POP x_17303
-| PUSH x_17304 -> h_PUSH x_17304
-| ADDRESS (i, x_17306, x_17305) -> h_ADDRESS i __ x_17306 x_17305
-| OPACCS (x_17312, x_17311, x_17310, x_17309, x_17308) ->
-  h_OPACCS x_17312 x_17311 x_17310 x_17309 x_17308
-| OP1 (x_17315, x_17314, x_17313) -> h_OP1 x_17315 x_17314 x_17313
-| OP2 (x_17319, x_17318, x_17317, x_17316) ->
-  h_OP2 x_17319 x_17318 x_17317 x_17316
+| COMMENT x_617 -> h_COMMENT x_617
+| MOVE x_618 -> h_MOVE x_618
+| POP x_619 -> h_POP x_619
+| PUSH x_620 -> h_PUSH x_620
+| ADDRESS (i, x_622, x_621) -> h_ADDRESS i __ x_622 x_621
+| OPACCS (x_628, x_627, x_626, x_625, x_624) ->
+  h_OPACCS x_628 x_627 x_626 x_625 x_624
+| OP1 (x_631, x_630, x_629) -> h_OP1 x_631 x_630 x_629
+| OP2 (x_635, x_634, x_633, x_632) -> h_OP2 x_635 x_634 x_633 x_632
 | CLEAR_CARRY -> h_CLEAR_CARRY
 | SET_CARRY -> h_SET_CARRY
-| LOAD (x_17322, x_17321, x_17320) -> h_LOAD x_17322 x_17321 x_17320
-| STORE (x_17325, x_17324, x_17323) -> h_STORE x_17325 x_17324 x_17323
-| Extension_seq x_17326 -> h_extension_seq x_17326
+| LOAD (x_638, x_637, x_636) -> h_LOAD x_638 x_637 x_636
+| STORE (x_641, x_640, x_639) -> h_STORE x_641 x_640 x_639
+| Extension_seq x_642 -> h_extension_seq x_642
 
 (** val joint_seq_inv_rect_Type4 :
@@ -1236 +1230 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type4 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17593 -> h_COST_LABEL x_17593
-| CALL (x_17596, x_17595, x_17594) -> h_CALL x_17596 x_17595 x_17594
-| COND (x_17598, x_17597) -> h_COND x_17598 x_17597
-| Step_seq x_17599 -> h_step_seq x_17599
+| COST_LABEL x_909 -> h_COST_LABEL x_909
+| CALL (x_912, x_911, x_910) -> h_CALL x_912 x_911 x_910
+| COND (x_914, x_913) -> h_COND x_914 x_913
+| Step_seq x_915 -> h_step_seq x_915
 
 (** val joint_step_rect_Type5 :
@@ -1246 +1240 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type5 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17605 -> h_COST_LABEL x_17605
-| CALL (x_17608, x_17607, x_17606) -> h_CALL x_17608 x_17607 x_17606
-| COND (x_17610, x_17609) -> h_COND x_17610 x_17609
-| Step_seq x_17611 -> h_step_seq x_17611
+| COST_LABEL x_921 -> h_COST_LABEL x_921
+| CALL (x_924, x_923, x_922) -> h_CALL x_924 x_923 x_922
+| COND (x_926, x_925) -> h_COND x_926 x_925
+| Step_seq x_927 -> h_step_seq x_927
 
 (** val joint_step_rect_Type3 :
@@ -1256 +1250 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type3 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17617 -> h_COST_LABEL x_17617
-| CALL (x_17620, x_17619, x_17618) -> h_CALL x_17620 x_17619 x_17618
-| COND (x_17622, x_17621) -> h_COND x_17622 x_17621
-| Step_seq x_17623 -> h_step_seq x_17623
+| COST_LABEL x_933 -> h_COST_LABEL x_933
+| CALL (x_936, x_935, x_934) -> h_CALL x_936 x_935 x_934
+| COND (x_938, x_937) -> h_COND x_938 x_937
+| Step_seq x_939 -> h_step_seq x_939
 
 (** val joint_step_rect_Type2 :
@@ -1266 +1260 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type2 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17629 -> h_COST_LABEL x_17629
-| CALL (x_17632, x_17631, x_17630) -> h_CALL x_17632 x_17631 x_17630
-| COND (x_17634, x_17633) -> h_COND x_17634 x_17633
-| Step_seq x_17635 -> h_step_seq x_17635
+| COST_LABEL x_945 -> h_COST_LABEL x_945
+| CALL (x_948, x_947, x_946) -> h_CALL x_948 x_947 x_946
+| COND (x_950, x_949) -> h_COND x_950 x_949
+| Step_seq x_951 -> h_step_seq x_951
 
 (** val joint_step_rect_Type1 :
@@ -1276 +1270 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type1 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17641 -> h_COST_LABEL x_17641
-| CALL (x_17644, x_17643, x_17642) -> h_CALL x_17644 x_17643 x_17642
-| COND (x_17646, x_17645) -> h_COND x_17646 x_17645
-| Step_seq x_17647 -> h_step_seq x_17647
+| COST_LABEL x_957 -> h_COST_LABEL x_957
+| CALL (x_960, x_959, x_958) -> h_CALL x_960 x_959 x_958
+| COND (x_962, x_961) -> h_COND x_962 x_961
+| Step_seq x_963 -> h_step_seq x_963
 
 (** val joint_step_rect_Type0 :
@@ -1286 +1280 @@
     -> (__ -> Graphs.label -> 'a1) -> (joint_seq -> 'a1) -> joint_step -> 'a1 **)
 let rec joint_step_rect_Type0 p globals h_COST_LABEL h_CALL h_COND h_step_seq = function
-| COST_LABEL x_17653 -> h_COST_LABEL x_17653
-| CALL (x_17656, x_17655, x_17654) -> h_CALL x_17656 x_17655 x_17654
-| COND (x_17658, x_17657) -> h_COND x_17658 x_17657
-| Step_seq x_17659 -> h_step_seq x_17659
+| COST_LABEL x_969 -> h_COST_LABEL x_969
+| CALL (x_972, x_971, x_970) -> h_CALL x_972 x_971 x_970
+| COND (x_974, x_973) -> h_COND x_974 x_973
+| Step_seq x_975 -> h_step_seq x_975
 
 (** val joint_step_inv_rect_Type4 :
@@ -1464 +1458 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type4 h_mk_stmt_params x_17738 =
+let rec stmt_params_rect_Type4 h_mk_stmt_params x_1054 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17738
+    has_fcond0 } = x_1054
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1473 +1467 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type5 h_mk_stmt_params x_17740 =
+let rec stmt_params_rect_Type5 h_mk_stmt_params x_1056 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17740
+    has_fcond0 } = x_1056
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1482 +1476 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type3 h_mk_stmt_params x_17742 =
+let rec stmt_params_rect_Type3 h_mk_stmt_params x_1058 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17742
+    has_fcond0 } = x_1058
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1491 +1485 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type2 h_mk_stmt_params x_17744 =
+let rec stmt_params_rect_Type2 h_mk_stmt_params x_1060 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17744
+    has_fcond0 } = x_1060
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1500 +1494 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type1 h_mk_stmt_params x_17746 =
+let rec stmt_params_rect_Type1 h_mk_stmt_params x_1062 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17746
+    has_fcond0 } = x_1062
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1509 +1503 @@
     (uns_params -> __ -> (__ -> Graphs.label Types.option) -> Bool.bool ->
     'a1) -> stmt_params -> 'a1 **)
-let rec stmt_params_rect_Type0 h_mk_stmt_params x_17748 =
+let rec stmt_params_rect_Type0 h_mk_stmt_params x_1064 =
   let { uns_pars = uns_pars0; succ_label = succ_label0; has_fcond =
-    has_fcond0 } = x_17748
+    has_fcond0 } = x_1064
   in
   h_mk_stmt_params uns_pars0 __ succ_label0 has_fcond0
@@ -1578 +1572 @@
     (__, __) Types.prod) Types.sum -> __ -> 'a1) -> joint_fin_step -> 'a1 **)
 let rec joint_fin_step_rect_Type4 p h_GOTO h_RETURN h_TAILCALL = function
-| GOTO x_17772 -> h_GOTO x_17772
+| GOTO x_1088 -> h_GOTO x_1088
 | RETURN -> h_RETURN
-| TAILCALL (x_17774, x_17773) -> h_TAILCALL __ x_17774 x_17773
+| TAILCALL (x_1090, x_1089) -> h_TAILCALL __ x_1090 x_1089
 
 (** val joint_fin_step_rect_Type5 :
@@ -1586 +1580 @@
     (__, __) Types.prod) Types.sum -> __ -> 'a1) -> joint_fin_step -> 'a1 **)
 let rec joint_fin_step_rect_Type5 p h_GOTO h_RETURN h_TAILCALL = function
-| GOTO x_17780 -> h_GOTO x_17780
+| GOTO x_1096 -> h_GOTO x_1096
 | RETURN -> h_RETURN
-| TAILCALL (x_17782, x_17781) -> h_TAILCALL __ x_17782 x_17781
+| TAILCALL (x_1098, x_1097) -> h_TAILCALL __ x_1098 x_1097
 
 (** val joint_fin_step_rect_Type3 :
@@ -1594 +1588 @@
     (__, __) Types.prod) Types.sum -> __ -> 'a1) -> joint_fin_step -> 'a1 **)
 let rec joint_fin_step_rect_Type3 p h_GOTO h_RETURN h_TAILCALL = function
-| GOTO x_17788 -> h_GOTO x_17788
+| GOTO x_1104 -> h_GOTO x_1104
 | RETURN -> h_RETURN
-| TAILCALL (x_17790, x_17789) -> h_TAILCALL __ x_17790 x_17789
+| TAILCALL (x_1106, x_1105) -> h_TAILCALL __ x_1106 x_1105
 
 (** val joint_fin_step_rect_Type2 :
@@ -1602 +1596 @@
     (__, __) Types.prod) Types.sum -> __ -> 'a1) -> joint_fin_step -> 'a1 **)
 let rec joint_fin_step_rect_Type2 p h_GOTO h_RETURN h_TAILCALL = function
-| GOTO x_17796 -> h_GOTO x_17796
+| GOTO x_1112 -> h_GOTO x_1112
 | RETURN -> h_RETURN
-| TAILCALL (x_17798, x_17797) -> h_TAILCALL __ x_17798 x_17797
+| TAILCALL (x_1114, x_1113) -> h_TAILCALL __ x_1114 x_1113
 
 (** val joint_fin_step_rect_Type1 :
@@ -1610 +1604 @@
     (__, __) Types.prod) Types.sum -> __ -> 'a1) -> joint_fin_step -> 'a1 **)
 let rec joint_fin_step_rect_Type1 p h_GOTO h_RETURN h_TAILCALL = function
-| GOTO x_17804 -> h_GOTO x_17804
+| GOTO x_1120 -> h_GOTO x_1120
 | RETURN -> h_RETURN
-| TAILCALL (x_17806, x_17805) -> h_TAILCALL __ x_17806 x_17805
+| TAILCALL (x_1122, x_1121) -> h_TAILCALL __ x_1122 x_1121
 
 (** val joint_fin_step_rect_Type0 :
@@ -1618 +1612 @@
     (__, __) T