Changeset 2797 for extracted

Timestamp:

Mar 7, 2013, 12:55:34 PM (7 years ago)

Author:

sacerdot

Message:

Extracted again after James's cleanup and the implementation of the
new testing function to be used in the untrusted code.

Location:

extracted

Files:

• aSM.ml (modified) (48 diffs)
• aSMCosts.ml (modified) (1 diff)
• aST.ml (modified) (21 diffs)
• backEndOps.ml (modified) (6 diffs)
• bind_new.ml (modified) (5 diffs)
• bitVectorTrie.ml (modified) (5 diffs)
• blocks.ml (modified) (1 diff)
• byteValues.ml (modified) (19 diffs)
• classifyOp.ml (modified) (30 diffs)
• cminor_syntax.ml (modified) (16 diffs)
• compiler.ml (modified) (7 diffs)
• csem.ml (modified) (5 diffs)
• csyntax.ml (modified) (18 diffs)
• division.ml (modified) (1 diff)
• eRTL.ml (modified) (11 diffs)
• eRTL.mli (modified) (1 diff)
• eRTLptr.ml (modified) (10 diffs)
• eRTLptr.mli (modified) (1 diff)
• eRTLptrToLTL.ml (modified) (6 diffs)
• errorMessages.ml (modified) (13 diffs)
• errorMessages.mli (modified) (7 diffs)
• errors.ml (modified) (7 diffs)
• events.ml (modified) (7 diffs)
• fixpoints.ml (modified) (7 diffs)
• frontEndOps.ml (modified) (19 diffs)
• genMem.ml (modified) (2 diffs)
• globalenvs.ml (modified) (6 diffs)
• iO.ml (modified) (6 diffs)
• iOMonad.ml (modified) (5 diffs)
• identifiers.ml (modified) (2 diffs)
• initialisation.ml (modified) (1 diff)
• interference.ml (modified) (7 diffs)
• joint.ml (modified) (60 diffs)
• joint.mli (modified) (10 diffs)
• joint_LTL_LIN.ml (modified) (13 diffs)
• joint_LTL_LIN.mli (modified) (1 diff)
• lINToASM.ml (modified) (6 diffs)
• linearise.ml (modified) (5 diffs)
• linearise.mli (modified) (4 diffs)
• pointers.ml (modified) (3 diffs)
• positiveMap.ml (modified) (5 diffs)
• rTL.ml (modified) (2 diffs)
• rTL.mli (modified) (1 diff)
• rTLabsToRTL.ml (modified) (6 diffs)
• rTLabs_abstract.ml (modified) (12 diffs)
• rTLabs_semantics.ml (modified) (6 diffs)
• rTLabs_syntax.ml (modified) (12 diffs)
• rTLabs_traces.ml (modified) (22 diffs)
• registerSet.ml (modified) (7 diffs)
• smallstep.ml (modified) (14 diffs)
• smallstepExec.ml (modified) (18 diffs)
• status.ml (modified) (24 diffs)
• structuredTraces.ml (modified) (25 diffs)
• toCminor.ml (modified) (30 diffs)
• toRTLabs.ml (modified) (24 diffs)
• translateUtils.ml (modified) (6 diffs)
• values.ml (modified) (6 diffs)
• z.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_21846 -> h_DIRECT x_21846
-| INDIRECT x_21847 -> h_INDIRECT x_21847
-| EXT_INDIRECT x_21848 -> h_EXT_INDIRECT x_21848
-| REGISTER x_21849 -> h_REGISTER x_21849
+| DIRECT x_21925 -> h_DIRECT x_21925
+| INDIRECT x_21926 -> h_INDIRECT x_21926
+| EXT_INDIRECT x_21927 -> h_EXT_INDIRECT x_21927
+| REGISTER x_21928 -> h_REGISTER x_21928
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_21850 -> h_DATA x_21850
-| DATA16 x_21851 -> h_DATA16 x_21851
+| DATA x_21929 -> h_DATA x_21929
+| DATA16 x_21930 -> h_DATA16 x_21930
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -127 +127 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_21852 -> h_BIT_ADDR x_21852
-| N_BIT_ADDR x_21853 -> h_N_BIT_ADDR x_21853
-| RELATIVE x_21854 -> h_RELATIVE x_21854
-| ADDR11 x_21855 -> h_ADDR11 x_21855
-| ADDR16 x_21856 -> h_ADDR16 x_21856
+| BIT_ADDR x_21931 -> h_BIT_ADDR x_21931
+| N_BIT_ADDR x_21932 -> h_N_BIT_ADDR x_21932
+| RELATIVE x_21933 -> h_RELATIVE x_21933
+| ADDR11 x_21934 -> h_ADDR11 x_21934
+| ADDR16 x_21935 -> h_ADDR16 x_21935
 
 (** 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_21877 -> h_DIRECT x_21877
-| INDIRECT x_21878 -> h_INDIRECT x_21878
-| EXT_INDIRECT x_21879 -> h_EXT_INDIRECT x_21879
-| REGISTER x_21880 -> h_REGISTER x_21880
+| DIRECT x_21956 -> h_DIRECT x_21956
+| INDIRECT x_21957 -> h_INDIRECT x_21957
+| EXT_INDIRECT x_21958 -> h_EXT_INDIRECT x_21958
+| REGISTER x_21959 -> h_REGISTER x_21959
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_21881 -> h_DATA x_21881
-| DATA16 x_21882 -> h_DATA16 x_21882
+| DATA x_21960 -> h_DATA x_21960
+| DATA16 x_21961 -> h_DATA16 x_21961
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -155 +155 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_21883 -> h_BIT_ADDR x_21883
-| N_BIT_ADDR x_21884 -> h_N_BIT_ADDR x_21884
-| RELATIVE x_21885 -> h_RELATIVE x_21885
-| ADDR11 x_21886 -> h_ADDR11 x_21886
-| ADDR16 x_21887 -> h_ADDR16 x_21887
+| BIT_ADDR x_21962 -> h_BIT_ADDR x_21962
+| N_BIT_ADDR x_21963 -> h_N_BIT_ADDR x_21963
+| RELATIVE x_21964 -> h_RELATIVE x_21964
+| ADDR11 x_21965 -> h_ADDR11 x_21965
+| ADDR16 x_21966 -> h_ADDR16 x_21966
 
 (** 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_21908 -> h_DIRECT x_21908
-| INDIRECT x_21909 -> h_INDIRECT x_21909
-| EXT_INDIRECT x_21910 -> h_EXT_INDIRECT x_21910
-| REGISTER x_21911 -> h_REGISTER x_21911
+| DIRECT x_21987 -> h_DIRECT x_21987
+| INDIRECT x_21988 -> h_INDIRECT x_21988
+| EXT_INDIRECT x_21989 -> h_EXT_INDIRECT x_21989
+| REGISTER x_21990 -> h_REGISTER x_21990
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_21912 -> h_DATA x_21912
-| DATA16 x_21913 -> h_DATA16 x_21913
+| DATA x_21991 -> h_DATA x_21991
+| DATA16 x_21992 -> h_DATA16 x_21992
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -183 +183 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_21914 -> h_BIT_ADDR x_21914
-| N_BIT_ADDR x_21915 -> h_N_BIT_ADDR x_21915
-| RELATIVE x_21916 -> h_RELATIVE x_21916
-| ADDR11 x_21917 -> h_ADDR11 x_21917
-| ADDR16 x_21918 -> h_ADDR16 x_21918
+| BIT_ADDR x_21993 -> h_BIT_ADDR x_21993
+| N_BIT_ADDR x_21994 -> h_N_BIT_ADDR x_21994
+| RELATIVE x_21995 -> h_RELATIVE x_21995
+| ADDR11 x_21996 -> h_ADDR11 x_21996
+| ADDR16 x_21997 -> h_ADDR16 x_21997
 
 (** 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_21939 -> h_DIRECT x_21939
-| INDIRECT x_21940 -> h_INDIRECT x_21940
-| EXT_INDIRECT x_21941 -> h_EXT_INDIRECT x_21941
-| REGISTER x_21942 -> h_REGISTER x_21942
+| DIRECT x_22018 -> h_DIRECT x_22018
+| INDIRECT x_22019 -> h_INDIRECT x_22019
+| EXT_INDIRECT x_22020 -> h_EXT_INDIRECT x_22020
+| REGISTER x_22021 -> h_REGISTER x_22021
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_21943 -> h_DATA x_21943
-| DATA16 x_21944 -> h_DATA16 x_21944
+| DATA x_22022 -> h_DATA x_22022
+| DATA16 x_22023 -> h_DATA16 x_22023
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -211 +211 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_21945 -> h_BIT_ADDR x_21945
-| N_BIT_ADDR x_21946 -> h_N_BIT_ADDR x_21946
-| RELATIVE x_21947 -> h_RELATIVE x_21947
-| ADDR11 x_21948 -> h_ADDR11 x_21948
-| ADDR16 x_21949 -> h_ADDR16 x_21949
+| BIT_ADDR x_22024 -> h_BIT_ADDR x_22024
+| N_BIT_ADDR x_22025 -> h_N_BIT_ADDR x_22025
+| RELATIVE x_22026 -> h_RELATIVE x_22026
+| ADDR11 x_22027 -> h_ADDR11 x_22027
+| ADDR16 x_22028 -> h_ADDR16 x_22028
 
 (** 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_21970 -> h_DIRECT x_21970
-| INDIRECT x_21971 -> h_INDIRECT x_21971
-| EXT_INDIRECT x_21972 -> h_EXT_INDIRECT x_21972
-| REGISTER x_21973 -> h_REGISTER x_21973
+| DIRECT x_22049 -> h_DIRECT x_22049
+| INDIRECT x_22050 -> h_INDIRECT x_22050
+| EXT_INDIRECT x_22051 -> h_EXT_INDIRECT x_22051
+| REGISTER x_22052 -> h_REGISTER x_22052
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_21974 -> h_DATA x_21974
-| DATA16 x_21975 -> h_DATA16 x_21975
+| DATA x_22053 -> h_DATA x_22053
+| DATA16 x_22054 -> h_DATA16 x_22054
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -239 +239 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_21976 -> h_BIT_ADDR x_21976
-| N_BIT_ADDR x_21977 -> h_N_BIT_ADDR x_21977
-| RELATIVE x_21978 -> h_RELATIVE x_21978
-| ADDR11 x_21979 -> h_ADDR11 x_21979
-| ADDR16 x_21980 -> h_ADDR16 x_21980
+| BIT_ADDR x_22055 -> h_BIT_ADDR x_22055
+| N_BIT_ADDR x_22056 -> h_N_BIT_ADDR x_22056
+| RELATIVE x_22057 -> h_RELATIVE x_22057
+| ADDR11 x_22058 -> h_ADDR11 x_22058
+| ADDR16 x_22059 -> h_ADDR16 x_22059
 
 (** 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_22001 -> h_DIRECT x_22001
-| INDIRECT x_22002 -> h_INDIRECT x_22002
-| EXT_INDIRECT x_22003 -> h_EXT_INDIRECT x_22003
-| REGISTER x_22004 -> h_REGISTER x_22004
+| DIRECT x_22080 -> h_DIRECT x_22080
+| INDIRECT x_22081 -> h_INDIRECT x_22081
+| EXT_INDIRECT x_22082 -> h_EXT_INDIRECT x_22082
+| REGISTER x_22083 -> h_REGISTER x_22083
 | ACC_A -> h_ACC_A
 | ACC_B -> h_ACC_B
 | DPTR -> h_DPTR
-| DATA x_22005 -> h_DATA x_22005
-| DATA16 x_22006 -> h_DATA16 x_22006
+| DATA x_22084 -> h_DATA x_22084
+| DATA16 x_22085 -> h_DATA16 x_22085
 | ACC_DPTR -> h_ACC_DPTR
 | ACC_PC -> h_ACC_PC
@@ -267 +267 @@
 | INDIRECT_DPTR -> h_INDIRECT_DPTR
 | CARRY -> h_CARRY
-| BIT_ADDR x_22007 -> h_BIT_ADDR x_22007
-| N_BIT_ADDR x_22008 -> h_N_BIT_ADDR x_22008
-| RELATIVE x_22009 -> h_RELATIVE x_22009
-| ADDR11 x_22010 -> h_ADDR11 x_22010
-| ADDR16 x_22011 -> h_ADDR16 x_22011
+| BIT_ADDR x_22086 -> h_BIT_ADDR x_22086
+| N_BIT_ADDR x_22087 -> h_N_BIT_ADDR x_22087
+| RELATIVE x_22088 -> h_RELATIVE x_22088
+| ADDR11 x_22089 -> h_ADDR11 x_22089
+| ADDR16 x_22090 -> h_ADDR16 x_22090
 
 (** 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_22479 =
-  let subaddressing_modeel = x_22479 in
+let rec subaddressing_mode_rect_Type4 n l h_mk_subaddressing_mode x_22558 =
+  let subaddressing_modeel = x_22558 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_22481 =
-  let subaddressing_modeel = x_22481 in
+let rec subaddressing_mode_rect_Type5 n l h_mk_subaddressing_mode x_22560 =
+  let subaddressing_modeel = x_22560 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_22483 =
-  let subaddressing_modeel = x_22483 in
+let rec subaddressing_mode_rect_Type3 n l h_mk_subaddressing_mode x_22562 =
+  let subaddressing_modeel = x_22562 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_22485 =
-  let subaddressing_modeel = x_22485 in
+let rec subaddressing_mode_rect_Type2 n l h_mk_subaddressing_mode x_22564 =
+  let subaddressing_modeel = x_22564 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_22487 =
-  let subaddressing_modeel = x_22487 in
+let rec subaddressing_mode_rect_Type1 n l h_mk_subaddressing_mode x_22566 =
+  let subaddressing_modeel = x_22566 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_22489 =
-  let subaddressing_modeel = x_22489 in
+let rec subaddressing_mode_rect_Type0 n l h_mk_subaddressing_mode x_22568 =
+  let subaddressing_modeel = x_22568 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_22591, x_22590) -> h_ADD x_22591 x_22590
-| ADDC (x_22593, x_22592) -> h_ADDC x_22593 x_22592
-| SUBB (x_22595, x_22594) -> h_SUBB x_22595 x_22594
-| INC x_22596 -> h_INC x_22596
-| DEC x_22597 -> h_DEC x_22597
-| MUL (x_22599, x_22598) -> h_MUL x_22599 x_22598
-| DIV (x_22601, x_22600) -> h_DIV x_22601 x_22600
-| DA x_22602 -> h_DA x_22602
-| JC x_22603 -> h_JC x_22603
-| JNC x_22604 -> h_JNC x_22604
-| JB (x_22606, x_22605) -> h_JB x_22606 x_22605
-| JNB (x_22608, x_22607) -> h_JNB x_22608 x_22607
-| JBC (x_22610, x_22609) -> h_JBC x_22610 x_22609
-| JZ x_22611 -> h_JZ x_22611
-| JNZ x_22612 -> h_JNZ x_22612
-| CJNE (x_22614, x_22613) -> h_CJNE x_22614 x_22613
-| DJNZ (x_22616, x_22615) -> h_DJNZ x_22616 x_22615
-| ANL x_22617 -> h_ANL x_22617
-| ORL x_22618 -> h_ORL x_22618
-| XRL x_22619 -> h_XRL x_22619
-| CLR x_22620 -> h_CLR x_22620
-| CPL x_22621 -> h_CPL x_22621
-| RL x_22622 -> h_RL x_22622
-| RLC x_22623 -> h_RLC x_22623
-| RR x_22624 -> h_RR x_22624
-| RRC x_22625 -> h_RRC x_22625
-| SWAP x_22626 -> h_SWAP x_22626
-| MOV x_22627 -> h_MOV x_22627
-| MOVX x_22628 -> h_MOVX x_22628
-| SETB x_22629 -> h_SETB x_22629
-| PUSH x_22630 -> h_PUSH x_22630
-| POP x_22631 -> h_POP x_22631
-| XCH (x_22633, x_22632) -> h_XCH x_22633 x_22632
-| XCHD (x_22635, x_22634) -> h_XCHD x_22635 x_22634
+| ADD (x_22670, x_22669) -> h_ADD x_22670 x_22669
+| ADDC (x_22672, x_22671) -> h_ADDC x_22672 x_22671
+| SUBB (x_22674, x_22673) -> h_SUBB x_22674 x_22673
+| INC x_22675 -> h_INC x_22675
+| DEC x_22676 -> h_DEC x_22676
+| MUL (x_22678, x_22677) -> h_MUL x_22678 x_22677
+| DIV (x_22680, x_22679) -> h_DIV x_22680 x_22679
+| DA x_22681 -> h_DA x_22681
+| JC x_22682 -> h_JC x_22682
+| JNC x_22683 -> h_JNC x_22683
+| JB (x_22685, x_22684) -> h_JB x_22685 x_22684
+| JNB (x_22687, x_22686) -> h_JNB x_22687 x_22686
+| JBC (x_22689, x_22688) -> h_JBC x_22689 x_22688
+| JZ x_22690 -> h_JZ x_22690
+| JNZ x_22691 -> h_JNZ x_22691
+| CJNE (x_22693, x_22692) -> h_CJNE x_22693 x_22692
+| DJNZ (x_22695, x_22694) -> h_DJNZ x_22695 x_22694
+| ANL x_22696 -> h_ANL x_22696
+| ORL x_22697 -> h_ORL x_22697
+| XRL x_22698 -> h_XRL x_22698
+| CLR x_22699 -> h_CLR x_22699
+| CPL x_22700 -> h_CPL x_22700
+| RL x_22701 -> h_RL x_22701
+| RLC x_22702 -> h_RLC x_22702
+| RR x_22703 -> h_RR x_22703
+| RRC x_22704 -> h_RRC x_22704
+| SWAP x_22705 -> h_SWAP x_22705
+| MOV x_22706 -> h_MOV x_22706
+| MOVX x_22707 -> h_MOVX x_22707
+| SETB x_22708 -> h_SETB x_22708
+| PUSH x_22709 -> h_PUSH x_22709
+| POP x_22710 -> h_POP x_22710
+| XCH (x_22712, x_22711) -> h_XCH x_22712 x_22711
+| XCHD (x_22714, x_22713) -> h_XCHD x_22714 x_22713
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_22636 -> h_JMP x_22636
+| JMP x_22715 -> h_JMP x_22715
 
 (** 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_22677, x_22676) -> h_ADD x_22677 x_22676
-| ADDC (x_22679, x_22678) -> h_ADDC x_22679 x_22678
-| SUBB (x_22681, x_22680) -> h_SUBB x_22681 x_22680
-| INC x_22682 -> h_INC x_22682
-| DEC x_22683 -> h_DEC x_22683
-| MUL (x_22685, x_22684) -> h_MUL x_22685 x_22684
-| DIV (x_22687, x_22686) -> h_DIV x_22687 x_22686
-| DA x_22688 -> h_DA x_22688
-| JC x_22689 -> h_JC x_22689
-| JNC x_22690 -> h_JNC x_22690
-| JB (x_22692, x_22691) -> h_JB x_22692 x_22691
-| JNB (x_22694, x_22693) -> h_JNB x_22694 x_22693
-| JBC (x_22696, x_22695) -> h_JBC x_22696 x_22695
-| JZ x_22697 -> h_JZ x_22697
-| JNZ x_22698 -> h_JNZ x_22698
-| CJNE (x_22700, x_22699) -> h_CJNE x_22700 x_22699
-| DJNZ (x_22702, x_22701) -> h_DJNZ x_22702 x_22701
-| ANL x_22703 -> h_ANL x_22703
-| ORL x_22704 -> h_ORL x_22704
-| XRL x_22705 -> h_XRL x_22705
-| CLR x_22706 -> h_CLR x_22706
-| CPL x_22707 -> h_CPL x_22707
-| RL x_22708 -> h_RL x_22708
-| RLC x_22709 -> h_RLC x_22709
-| RR x_22710 -> h_RR x_22710
-| RRC x_22711 -> h_RRC x_22711
-| SWAP x_22712 -> h_SWAP x_22712
-| MOV x_22713 -> h_MOV x_22713
-| MOVX x_22714 -> h_MOVX x_22714
-| SETB x_22715 -> h_SETB x_22715
-| PUSH x_22716 -> h_PUSH x_22716
-| POP x_22717 -> h_POP x_22717
-| XCH (x_22719, x_22718) -> h_XCH x_22719 x_22718
-| XCHD (x_22721, x_22720) -> h_XCHD x_22721 x_22720
+| ADD (x_22756, x_22755) -> h_ADD x_22756 x_22755
+| ADDC (x_22758, x_22757) -> h_ADDC x_22758 x_22757
+| SUBB (x_22760, x_22759) -> h_SUBB x_22760 x_22759
+| INC x_22761 -> h_INC x_22761
+| DEC x_22762 -> h_DEC x_22762
+| MUL (x_22764, x_22763) -> h_MUL x_22764 x_22763
+| DIV (x_22766, x_22765) -> h_DIV x_22766 x_22765
+| DA x_22767 -> h_DA x_22767
+| JC x_22768 -> h_JC x_22768
+| JNC x_22769 -> h_JNC x_22769
+| JB (x_22771, x_22770) -> h_JB x_22771 x_22770
+| JNB (x_22773, x_22772) -> h_JNB x_22773 x_22772
+| JBC (x_22775, x_22774) -> h_JBC x_22775 x_22774
+| JZ x_22776 -> h_JZ x_22776
+| JNZ x_22777 -> h_JNZ x_22777
+| CJNE (x_22779, x_22778) -> h_CJNE x_22779 x_22778
+| DJNZ (x_22781, x_22780) -> h_DJNZ x_22781 x_22780
+| ANL x_22782 -> h_ANL x_22782
+| ORL x_22783 -> h_ORL x_22783
+| XRL x_22784 -> h_XRL x_22784
+| CLR x_22785 -> h_CLR x_22785
+| CPL x_22786 -> h_CPL x_22786
+| RL x_22787 -> h_RL x_22787
+| RLC x_22788 -> h_RLC x_22788
+| RR x_22789 -> h_RR x_22789
+| RRC x_22790 -> h_RRC x_22790
+| SWAP x_22791 -> h_SWAP x_22791
+| MOV x_22792 -> h_MOV x_22792
+| MOVX x_22793 -> h_MOVX x_22793
+| SETB x_22794 -> h_SETB x_22794
+| PUSH x_22795 -> h_PUSH x_22795
+| POP x_22796 -> h_POP x_22796
+| XCH (x_22798, x_22797) -> h_XCH x_22798 x_22797
+| XCHD (x_22800, x_22799) -> h_XCHD x_22800 x_22799
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_22722 -> h_JMP x_22722
+| JMP x_22801 -> h_JMP x_22801
 
 (** 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_22763, x_22762) -> h_ADD x_22763 x_22762
-| ADDC (x_22765, x_22764) -> h_ADDC x_22765 x_22764
-| SUBB (x_22767, x_22766) -> h_SUBB x_22767 x_22766
-| INC x_22768 -> h_INC x_22768
-| DEC x_22769 -> h_DEC x_22769
-| MUL (x_22771, x_22770) -> h_MUL x_22771 x_22770
-| DIV (x_22773, x_22772) -> h_DIV x_22773 x_22772
-| DA x_22774 -> h_DA x_22774
-| JC x_22775 -> h_JC x_22775
-| JNC x_22776 -> h_JNC x_22776
-| JB (x_22778, x_22777) -> h_JB x_22778 x_22777
-| JNB (x_22780, x_22779) -> h_JNB x_22780 x_22779
-| JBC (x_22782, x_22781) -> h_JBC x_22782 x_22781
-| JZ x_22783 -> h_JZ x_22783
-| JNZ x_22784 -> h_JNZ x_22784
-| CJNE (x_22786, x_22785) -> h_CJNE x_22786 x_22785
-| DJNZ (x_22788, x_22787) -> h_DJNZ x_22788 x_22787
-| ANL x_22789 -> h_ANL x_22789
-| ORL x_22790 -> h_ORL x_22790
-| XRL x_22791 -> h_XRL x_22791
-| CLR x_22792 -> h_CLR x_22792
-| CPL x_22793 -> h_CPL x_22793
-| RL x_22794 -> h_RL x_22794
-| RLC x_22795 -> h_RLC x_22795
-| RR x_22796 -> h_RR x_22796
-| RRC x_22797 -> h_RRC x_22797
-| SWAP x_22798 -> h_SWAP x_22798
-| MOV x_22799 -> h_MOV x_22799
-| MOVX x_22800 -> h_MOVX x_22800
-| SETB x_22801 -> h_SETB x_22801
-| PUSH x_22802 -> h_PUSH x_22802
-| POP x_22803 -> h_POP x_22803
-| XCH (x_22805, x_22804) -> h_XCH x_22805 x_22804
-| XCHD (x_22807, x_22806) -> h_XCHD x_22807 x_22806
+| ADD (x_22842, x_22841) -> h_ADD x_22842 x_22841
+| ADDC (x_22844, x_22843) -> h_ADDC x_22844 x_22843
+| SUBB (x_22846, x_22845) -> h_SUBB x_22846 x_22845
+| INC x_22847 -> h_INC x_22847
+| DEC x_22848 -> h_DEC x_22848
+| MUL (x_22850, x_22849) -> h_MUL x_22850 x_22849
+| DIV (x_22852, x_22851) -> h_DIV x_22852 x_22851
+| DA x_22853 -> h_DA x_22853
+| JC x_22854 -> h_JC x_22854
+| JNC x_22855 -> h_JNC x_22855
+| JB (x_22857, x_22856) -> h_JB x_22857 x_22856
+| JNB (x_22859, x_22858) -> h_JNB x_22859 x_22858
+| JBC (x_22861, x_22860) -> h_JBC x_22861 x_22860
+| JZ x_22862 -> h_JZ x_22862
+| JNZ x_22863 -> h_JNZ x_22863
+| CJNE (x_22865, x_22864) -> h_CJNE x_22865 x_22864
+| DJNZ (x_22867, x_22866) -> h_DJNZ x_22867 x_22866
+| ANL x_22868 -> h_ANL x_22868
+| ORL x_22869 -> h_ORL x_22869
+| XRL x_22870 -> h_XRL x_22870
+| CLR x_22871 -> h_CLR x_22871
+| CPL x_22872 -> h_CPL x_22872
+| RL x_22873 -> h_RL x_22873
+| RLC x_22874 -> h_RLC x_22874
+| RR x_22875 -> h_RR x_22875
+| RRC x_22876 -> h_RRC x_22876
+| SWAP x_22877 -> h_SWAP x_22877
+| MOV x_22878 -> h_MOV x_22878
+| MOVX x_22879 -> h_MOVX x_22879
+| SETB x_22880 -> h_SETB x_22880
+| PUSH x_22881 -> h_PUSH x_22881
+| POP x_22882 -> h_POP x_22882
+| XCH (x_22884, x_22883) -> h_XCH x_22884 x_22883
+| XCHD (x_22886, x_22885) -> h_XCHD x_22886 x_22885
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_22808 -> h_JMP x_22808
+| JMP x_22887 -> h_JMP x_22887
 
 (** 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_22849, x_22848) -> h_ADD x_22849 x_22848
-| ADDC (x_22851, x_22850) -> h_ADDC x_22851 x_22850
-| SUBB (x_22853, x_22852) -> h_SUBB x_22853 x_22852
-| INC x_22854 -> h_INC x_22854
-| DEC x_22855 -> h_DEC x_22855
-| MUL (x_22857, x_22856) -> h_MUL x_22857 x_22856
-| DIV (x_22859, x_22858) -> h_DIV x_22859 x_22858
-| DA x_22860 -> h_DA x_22860
-| JC x_22861 -> h_JC x_22861
-| JNC x_22862 -> h_JNC x_22862
-| JB (x_22864, x_22863) -> h_JB x_22864 x_22863
-| JNB (x_22866, x_22865) -> h_JNB x_22866 x_22865
-| JBC (x_22868, x_22867) -> h_JBC x_22868 x_22867
-| JZ x_22869 -> h_JZ x_22869
-| JNZ x_22870 -> h_JNZ x_22870
-| CJNE (x_22872, x_22871) -> h_CJNE x_22872 x_22871
-| DJNZ (x_22874, x_22873) -> h_DJNZ x_22874 x_22873
-| ANL x_22875 -> h_ANL x_22875
-| ORL x_22876 -> h_ORL x_22876
-| XRL x_22877 -> h_XRL x_22877
-| CLR x_22878 -> h_CLR x_22878
-| CPL x_22879 -> h_CPL x_22879
-| RL x_22880 -> h_RL x_22880
-| RLC x_22881 -> h_RLC x_22881
-| RR x_22882 -> h_RR x_22882
-| RRC x_22883 -> h_RRC x_22883
-| SWAP x_22884 -> h_SWAP x_22884
-| MOV x_22885 -> h_MOV x_22885
-| MOVX x_22886 -> h_MOVX x_22886
-| SETB x_22887 -> h_SETB x_22887
-| PUSH x_22888 -> h_PUSH x_22888
-| POP x_22889 -> h_POP x_22889
-| XCH (x_22891, x_22890) -> h_XCH x_22891 x_22890
-| XCHD (x_22893, x_22892) -> h_XCHD x_22893 x_22892
+| ADD (x_22928, x_22927) -> h_ADD x_22928 x_22927
+| ADDC (x_22930, x_22929) -> h_ADDC x_22930 x_22929
+| SUBB (x_22932, x_22931) -> h_SUBB x_22932 x_22931
+| INC x_22933 -> h_INC x_22933
+| DEC x_22934 -> h_DEC x_22934
+| MUL (x_22936, x_22935) -> h_MUL x_22936 x_22935
+| DIV (x_22938, x_22937) -> h_DIV x_22938 x_22937
+| DA x_22939 -> h_DA x_22939
+| JC x_22940 -> h_JC x_22940
+| JNC x_22941 -> h_JNC x_22941
+| JB (x_22943, x_22942) -> h_JB x_22943 x_22942
+| JNB (x_22945, x_22944) -> h_JNB x_22945 x_22944
+| JBC (x_22947, x_22946) -> h_JBC x_22947 x_22946
+| JZ x_22948 -> h_JZ x_22948
+| JNZ x_22949 -> h_JNZ x_22949
+| CJNE (x_22951, x_22950) -> h_CJNE x_22951 x_22950
+| DJNZ (x_22953, x_22952) -> h_DJNZ x_22953 x_22952
+| ANL x_22954 -> h_ANL x_22954
+| ORL x_22955 -> h_ORL x_22955
+| XRL x_22956 -> h_XRL x_22956
+| CLR x_22957 -> h_CLR x_22957
+| CPL x_22958 -> h_CPL x_22958
+| RL x_22959 -> h_RL x_22959
+| RLC x_22960 -> h_RLC x_22960
+| RR x_22961 -> h_RR x_22961
+| RRC x_22962 -> h_RRC x_22962
+| SWAP x_22963 -> h_SWAP x_22963
+| MOV x_22964 -> h_MOV x_22964
+| MOVX x_22965 -> h_MOVX x_22965
+| SETB x_22966 -> h_SETB x_22966
+| PUSH x_22967 -> h_PUSH x_22967
+| POP x_22968 -> h_POP x_22968
+| XCH (x_22970, x_22969) -> h_XCH x_22970 x_22969
+| XCHD (x_22972, x_22971) -> h_XCHD x_22972 x_22971
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_22894 -> h_JMP x_22894
+| JMP x_22973 -> h_JMP x_22973
 
 (** 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_22935, x_22934) -> h_ADD x_22935 x_22934
-| ADDC (x_22937, x_22936) -> h_ADDC x_22937 x_22936
-| SUBB (x_22939, x_22938) -> h_SUBB x_22939 x_22938
-| INC x_22940 -> h_INC x_22940
-| DEC x_22941 -> h_DEC x_22941
-| MUL (x_22943, x_22942) -> h_MUL x_22943 x_22942
-| DIV (x_22945, x_22944) -> h_DIV x_22945 x_22944
-| DA x_22946 -> h_DA x_22946
-| JC x_22947 -> h_JC x_22947
-| JNC x_22948 -> h_JNC x_22948
-| JB (x_22950, x_22949) -> h_JB x_22950 x_22949
-| JNB (x_22952, x_22951) -> h_JNB x_22952 x_22951
-| JBC (x_22954, x_22953) -> h_JBC x_22954 x_22953
-| JZ x_22955 -> h_JZ x_22955
-| JNZ x_22956 -> h_JNZ x_22956
-| CJNE (x_22958, x_22957) -> h_CJNE x_22958 x_22957
-| DJNZ (x_22960, x_22959) -> h_DJNZ x_22960 x_22959
-| ANL x_22961 -> h_ANL x_22961
-| ORL x_22962 -> h_ORL x_22962
-| XRL x_22963 -> h_XRL x_22963
-| CLR x_22964 -> h_CLR x_22964
-| CPL x_22965 -> h_CPL x_22965
-| RL x_22966 -> h_RL x_22966
-| RLC x_22967 -> h_RLC x_22967
-| RR x_22968 -> h_RR x_22968
-| RRC x_22969 -> h_RRC x_22969
-| SWAP x_22970 -> h_SWAP x_22970
-| MOV x_22971 -> h_MOV x_22971
-| MOVX x_22972 -> h_MOVX x_22972
-| SETB x_22973 -> h_SETB x_22973
-| PUSH x_22974 -> h_PUSH x_22974
-| POP x_22975 -> h_POP x_22975
-| XCH (x_22977, x_22976) -> h_XCH x_22977 x_22976
-| XCHD (x_22979, x_22978) -> h_XCHD x_22979 x_22978
+| ADD (x_23014, x_23013) -> h_ADD x_23014 x_23013
+| ADDC (x_23016, x_23015) -> h_ADDC x_23016 x_23015
+| SUBB (x_23018, x_23017) -> h_SUBB x_23018 x_23017
+| INC x_23019 -> h_INC x_23019
+| DEC x_23020 -> h_DEC x_23020
+| MUL (x_23022, x_23021) -> h_MUL x_23022 x_23021
+| DIV (x_23024, x_23023) -> h_DIV x_23024 x_23023
+| DA x_23025 -> h_DA x_23025
+| JC x_23026 -> h_JC x_23026
+| JNC x_23027 -> h_JNC x_23027
+| JB (x_23029, x_23028) -> h_JB x_23029 x_23028
+| JNB (x_23031, x_23030) -> h_JNB x_23031 x_23030
+| JBC (x_23033, x_23032) -> h_JBC x_23033 x_23032
+| JZ x_23034 -> h_JZ x_23034
+| JNZ x_23035 -> h_JNZ x_23035
+| CJNE (x_23037, x_23036) -> h_CJNE x_23037 x_23036
+| DJNZ (x_23039, x_23038) -> h_DJNZ x_23039 x_23038
+| ANL x_23040 -> h_ANL x_23040
+| ORL x_23041 -> h_ORL x_23041
+| XRL x_23042 -> h_XRL x_23042
+| CLR x_23043 -> h_CLR x_23043
+| CPL x_23044 -> h_CPL x_23044
+| RL x_23045 -> h_RL x_23045
+| RLC x_23046 -> h_RLC x_23046
+| RR x_23047 -> h_RR x_23047
+| RRC x_23048 -> h_RRC x_23048
+| SWAP x_23049 -> h_SWAP x_23049
+| MOV x_23050 -> h_MOV x_23050
+| MOVX x_23051 -> h_MOVX x_23051
+| SETB x_23052 -> h_SETB x_23052
+| PUSH x_23053 -> h_PUSH x_23053
+| POP x_23054 -> h_POP x_23054
+| XCH (x_23056, x_23055) -> h_XCH x_23056 x_23055
+| XCHD (x_23058, x_23057) -> h_XCHD x_23058 x_23057
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_22980 -> h_JMP x_22980
+| JMP x_23059 -> h_JMP x_23059
 
 (** 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_23021, x_23020) -> h_ADD x_23021 x_23020
-| ADDC (x_23023, x_23022) -> h_ADDC x_23023 x_23022
-| SUBB (x_23025, x_23024) -> h_SUBB x_23025 x_23024
-| INC x_23026 -> h_INC x_23026
-| DEC x_23027 -> h_DEC x_23027
-| MUL (x_23029, x_23028) -> h_MUL x_23029 x_23028
-| DIV (x_23031, x_23030) -> h_DIV x_23031 x_23030
-| DA x_23032 -> h_DA x_23032
-| JC x_23033 -> h_JC x_23033
-| JNC x_23034 -> h_JNC x_23034
-| JB (x_23036, x_23035) -> h_JB x_23036 x_23035
-| JNB (x_23038, x_23037) -> h_JNB x_23038 x_23037
-| JBC (x_23040, x_23039) -> h_JBC x_23040 x_23039
-| JZ x_23041 -> h_JZ x_23041
-| JNZ x_23042 -> h_JNZ x_23042
-| CJNE (x_23044, x_23043) -> h_CJNE x_23044 x_23043
-| DJNZ (x_23046, x_23045) -> h_DJNZ x_23046 x_23045
-| ANL x_23047 -> h_ANL x_23047
-| ORL x_23048 -> h_ORL x_23048
-| XRL x_23049 -> h_XRL x_23049
-| CLR x_23050 -> h_CLR x_23050
-| CPL x_23051 -> h_CPL x_23051
-| RL x_23052 -> h_RL x_23052
-| RLC x_23053 -> h_RLC x_23053
-| RR x_23054 -> h_RR x_23054
-| RRC x_23055 -> h_RRC x_23055
-| SWAP x_23056 -> h_SWAP x_23056
-| MOV x_23057 -> h_MOV x_23057
-| MOVX x_23058 -> h_MOVX x_23058
-| SETB x_23059 -> h_SETB x_23059
-| PUSH x_23060 -> h_PUSH x_23060
-| POP x_23061 -> h_POP x_23061
-| XCH (x_23063, x_23062) -> h_XCH x_23063 x_23062
-| XCHD (x_23065, x_23064) -> h_XCHD x_23065 x_23064
+| ADD (x_23100, x_23099) -> h_ADD x_23100 x_23099
+| ADDC (x_23102, x_23101) -> h_ADDC x_23102 x_23101
+| SUBB (x_23104, x_23103) -> h_SUBB x_23104 x_23103
+| INC x_23105 -> h_INC x_23105
+| DEC x_23106 -> h_DEC x_23106
+| MUL (x_23108, x_23107) -> h_MUL x_23108 x_23107
+| DIV (x_23110, x_23109) -> h_DIV x_23110 x_23109
+| DA x_23111 -> h_DA x_23111
+| JC x_23112 -> h_JC x_23112
+| JNC x_23113 -> h_JNC x_23113
+| JB (x_23115, x_23114) -> h_JB x_23115 x_23114
+| JNB (x_23117, x_23116) -> h_JNB x_23117 x_23116
+| JBC (x_23119, x_23118) -> h_JBC x_23119 x_23118
+| JZ x_23120 -> h_JZ x_23120
+| JNZ x_23121 -> h_JNZ x_23121
+| CJNE (x_23123, x_23122) -> h_CJNE x_23123 x_23122
+| DJNZ (x_23125, x_23124) -> h_DJNZ x_23125 x_23124
+| ANL x_23126 -> h_ANL x_23126
+| ORL x_23127 -> h_ORL x_23127
+| XRL x_23128 -> h_XRL x_23128
+| CLR x_23129 -> h_CLR x_23129
+| CPL x_23130 -> h_CPL x_23130
+| RL x_23131 -> h_RL x_23131
+| RLC x_23132 -> h_RLC x_23132
+| RR x_23133 -> h_RR x_23133
+| RRC x_23134 -> h_RRC x_23134
+| SWAP x_23135 -> h_SWAP x_23135
+| MOV x_23136 -> h_MOV x_23136
+| MOVX x_23137 -> h_MOVX x_23137
+| SETB x_23138 -> h_SETB x_23138
+| PUSH x_23139 -> h_PUSH x_23139
+| POP x_23140 -> h_POP x_23140
+| XCH (x_23142, x_23141) -> h_XCH x_23142 x_23141
+| XCHD (x_23144, x_23143) -> h_XCHD x_23144 x_23143
 | RET -> h_RET
 | RETI -> h_RETI
 | NOP -> h_NOP
-| JMP x_23066 -> h_JMP x_23066
+| JMP x_23145 -> h_JMP x_23145
 
 (** 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_23638 -> h_ACALL x_23638
-| LCALL x_23639 -> h_LCALL x_23639
-| AJMP x_23640 -> h_AJMP x_23640
-| LJMP x_23641 -> h_LJMP x_23641
-| SJMP x_23642 -> h_SJMP x_23642
-| MOVC (x_23644, x_23643) -> h_MOVC x_23644 x_23643
-| RealInstruction x_23645 -> h_RealInstruction x_23645
+| ACALL x_23717 -> h_ACALL x_23717
+| LCALL x_23718 -> h_LCALL x_23718
+| AJMP x_23719 -> h_AJMP x_23719
+| LJMP x_23720 -> h_LJMP x_23720
+| SJMP x_23721 -> h_SJMP x_23721
+| MOVC (x_23723, x_23722) -> h_MOVC x_23723 x_23722
+| RealInstruction x_23724 -> h_RealInstruction x_23724
 
 (** 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_23654 -> h_ACALL x_23654
-| LCALL x_23655 -> h_LCALL x_23655
-| AJMP x_23656 -> h_AJMP x_23656
-| LJMP x_23657 -> h_LJMP x_23657
-| SJMP x_23658 -> h_SJMP x_23658
-| MOVC (x_23660, x_23659) -> h_MOVC x_23660 x_23659
-| RealInstruction x_23661 -> h_RealInstruction x_23661
+| ACALL x_23733 -> h_ACALL x_23733
+| LCALL x_23734 -> h_LCALL x_23734
+| AJMP x_23735 -> h_AJMP x_23735
+| LJMP x_23736 -> h_LJMP x_23736
+| SJMP x_23737 -> h_SJMP x_23737
+| MOVC (x_23739, x_23738) -> h_MOVC x_23739 x_23738
+| RealInstruction x_23740 -> h_RealInstruction x_23740
 
 (** 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_23670 -> h_ACALL x_23670
-| LCALL x_23671 -> h_LCALL x_23671
-| AJMP x_23672 -> h_AJMP x_23672
-| LJMP x_23673 -> h_LJMP x_23673
-| SJMP x_23674 -> h_SJMP x_23674
-| MOVC (x_23676, x_23675) -> h_MOVC x_23676 x_23675
-| RealInstruction x_23677 -> h_RealInstruction x_23677
+| ACALL x_23749 -> h_ACALL x_23749
+| LCALL x_23750 -> h_LCALL x_23750
+| AJMP x_23751 -> h_AJMP x_23751
+| LJMP x_23752 -> h_LJMP x_23752
+| SJMP x_23753 -> h_SJMP x_23753
+| MOVC (x_23755, x_23754) -> h_MOVC x_23755 x_23754
+| RealInstruction x_23756 -> h_RealInstruction x_23756
 
 (** 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_23686 -> h_ACALL x_23686
-| LCALL x_23687 -> h_LCALL x_23687
-| AJMP x_23688 -> h_AJMP x_23688
-| LJMP x_23689 -> h_LJMP x_23689
-| SJMP x_23690 -> h_SJMP x_23690
-| MOVC (x_23692, x_23691) -> h_MOVC x_23692 x_23691
-| RealInstruction x_23693 -> h_RealInstruction x_23693
+| ACALL x_23765 -> h_ACALL x_23765
+| LCALL x_23766 -> h_LCALL x_23766
+| AJMP x_23767 -> h_AJMP x_23767
+| LJMP x_23768 -> h_LJMP x_23768
+| SJMP x_23769 -> h_SJMP x_23769
+| MOVC (x_23771, x_23770) -> h_MOVC x_23771 x_23770
+| RealInstruction x_23772 -> h_RealInstruction x_23772
 
 (** 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_23702 -> h_ACALL x_23702
-| LCALL x_23703 -> h_LCALL x_23703
-| AJMP x_23704 -> h_AJMP x_23704
-| LJMP x_23705 -> h_LJMP x_23705
-| SJMP x_23706 -> h_SJMP x_23706
-| MOVC (x_23708, x_23707) -> h_MOVC x_23708 x_23707
-| RealInstruction x_23709 -> h_RealInstruction x_23709
+| ACALL x_23781 -> h_ACALL x_23781
+| LCALL x_23782 -> h_LCALL x_23782
+| AJMP x_23783 -> h_AJMP x_23783
+| LJMP x_23784 -> h_LJMP x_23784
+| SJMP x_23785 -> h_SJMP x_23785
+| MOVC (x_23787, x_23786) -> h_MOVC x_23787 x_23786
+| RealInstruction x_23788 -> h_RealInstruction x_23788
 
 (** 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_23718 -> h_ACALL x_23718
-| LCALL x_23719 -> h_LCALL x_23719
-| AJMP x_23720 -> h_AJMP x_23720
-| LJMP x_23721 -> h_LJMP x_23721
-| SJMP x_23722 -> h_SJMP x_23722
-| MOVC (x_23724, x_23723) -> h_MOVC x_23724 x_23723
-| RealInstruction x_23725 -> h_RealInstruction x_23725
+| ACALL x_23797 -> h_ACALL x_23797
+| LCALL x_23798 -> h_LCALL x_23798
+| AJMP x_23799 -> h_AJMP x_23799
+| LJMP x_23800 -> h_LJMP x_23800
+| SJMP x_23801 -> h_SJMP x_23801
+| MOVC (x_23803, x_23802) -> h_MOVC x_23803 x_23802
+| RealInstruction x_23804 -> h_RealInstruction x_23804
 
 (** 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_23891 -> h_Instruction x_23891
-| Comment x_23892 -> h_Comment x_23892
-| Cost x_23893 -> h_Cost x_23893
-| Jmp x_23894 -> h_Jmp x_23894
-| Jnz (x_23897, x_23896, x_23895) -> h_Jnz x_23897 x_23896 x_23895
-| MovSuccessor (x_23900, x_23899, x_23898) ->
-  h_MovSuccessor x_23900 x_23899 x_23898
-| Call x_23901 -> h_Call x_23901
-| Mov (x_23903, x_23902) -> h_Mov x_23903 x_23902
+| Instruction x_23970 -> h_Instruction x_23970
+| Comment x_23971 -> h_Comment x_23971
+| Cost x_23972 -> h_Cost x_23972
+| Jmp x_23973 -> h_Jmp x_23973
+| Jnz (x_23976, x_23975, x_23974) -> h_Jnz x_23976 x_23975 x_23974
+| MovSuccessor (x_23979, x_23978, x_23977) ->
+  h_MovSuccessor x_23979 x_23978 x_23977
+| Call x_23980 -> h_Call x_23980
+| Mov (x_23982, x_23981) -> h_Mov x_23982 x_23981
 
 (** 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_23913 -> h_Instruction x_23913
-| Comment x_23914 -> h_Comment x_23914
-| Cost x_23915 -> h_Cost x_23915
-| Jmp x_23916 -> h_Jmp x_23916
-| Jnz (x_23919, x_23918, x_23917) -> h_Jnz x_23919 x_23918 x_23917
-| MovSuccessor (x_23922, x_23921, x_23920) ->
-  h_MovSuccessor x_23922 x_23921 x_23920
-| Call x_23923 -> h_Call x_23923
-| Mov (x_23925, x_23924) -> h_Mov x_23925 x_23924
+| Instruction x_23992 -> h_Instruction x_23992
+| Comment x_23993 -> h_Comment x_23993
+| Cost x_23994 -> h_Cost x_23994
+| Jmp x_23995 -> h_Jmp x_23995
+| Jnz (x_23998, x_23997, x_23996) -> h_Jnz x_23998 x_23997 x_23996
+| MovSuccessor (x_24001, x_24000, x_23999) ->
+  h_MovSuccessor x_24001 x_24000 x_23999
+| Call x_24002 -> h_Call x_24002
+| Mov (x_24004, x_24003) -> h_Mov x_24004 x_24003
 
 (** 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_23935 -> h_Instruction x_23935
-| Comment x_23936 -> h_Comment x_23936
-| Cost x_23937 -> h_Cost x_23937
-| Jmp x_23938 -> h_Jmp x_23938
-| Jnz (x_23941, x_23940, x_23939) -> h_Jnz x_23941 x_23940 x_23939
-| MovSuccessor (x_23944, x_23943, x_23942) ->
-  h_MovSuccessor x_23944 x_23943 x_23942
-| Call x_23945 -> h_Call x_23945
-| Mov (x_23947, x_23946) -> h_Mov x_23947 x_23946
+| Instruction x_24014 -> h_Instruction x_24014
+| Comment x_24015 -> h_Comment x_24015
+| Cost x_24016 -> h_Cost x_24016
+| Jmp x_24017 -> h_Jmp x_24017
+| Jnz (x_24020, x_24019, x_24018) -> h_Jnz x_24020 x_24019 x_24018
+| MovSuccessor (x_24023, x_24022, x_24021) ->
+  h_MovSuccessor x_24023 x_24022 x_24021
+| Call x_24024 -> h_Call x_24024
+| Mov (x_24026, x_24025) -> h_Mov x_24026 x_24025
 
 (** 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_23957 -> h_Instruction x_23957
-| Comment x_23958 -> h_Comment x_23958
-| Cost x_23959 -> h_Cost x_23959
-| Jmp x_23960 -> h_Jmp x_23960
-| Jnz (x_23963, x_23962, x_23961) -> h_Jnz x_23963 x_23962 x_23961
-| MovSuccessor (x_23966, x_23965, x_23964) ->
-  h_MovSuccessor x_23966 x_23965 x_23964
-| Call x_23967 -> h_Call x_23967
-| Mov (x_23969, x_23968) -> h_Mov x_23969 x_23968
+| Instruction x_24036 -> h_Instruction x_24036
+| Comment x_24037 -> h_Comment x_24037
+| Cost x_24038 -> h_Cost x_24038
+| Jmp x_24039 -> h_Jmp x_24039
+| Jnz (x_24042, x_24041, x_24040) -> h_Jnz x_24042 x_24041 x_24040
+| MovSuccessor (x_24045, x_24044, x_24043) ->
+  h_MovSuccessor x_24045 x_24044 x_24043
+| Call x_24046 -> h_Call x_24046
+| Mov (x_24048, x_24047) -> h_Mov x_24048 x_24047
 
 (** 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_23979 -> h_Instruction x_23979
-| Comment x_23980 -> h_Comment x_23980
-| Cost x_23981 -> h_Cost x_23981
-| Jmp x_23982 -> h_Jmp x_23982
-| Jnz (x_23985, x_23984, x_23983) -> h_Jnz x_23985 x_23984 x_23983
-| MovSuccessor (x_23988, x_23987, x_23986) ->
-  h_MovSuccessor x_23988 x_23987 x_23986
-| Call x_23989 -> h_Call x_23989
-| Mov (x_23991, x_23990) -> h_Mov x_23991 x_23990
+| Instruction x_24058 -> h_Instruction x_24058
+| Comment x_24059 -> h_Comment x_24059
+| Cost x_24060 -> h_Cost x_24060
+| Jmp x_24061 -> h_Jmp x_24061
+| Jnz (x_24064, x_24063, x_24062) -> h_Jnz x_24064 x_24063 x_24062
+| MovSuccessor (x_24067, x_24066, x_24065) ->
+  h_MovSuccessor x_24067 x_24066 x_24065
+| Call x_24068 -> h_Call x_24068
+| Mov (x_24070, x_24069) -> h_Mov x_24070 x_24069
 
 (** 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_24001 -> h_Instruction x_24001
-| Comment x_24002 -> h_Comment x_24002
-| Cost x_24003 -> h_Cost x_24003
-| Jmp x_24004 -> h_Jmp x_24004
-| Jnz (x_24007, x_24006, x_24005) -> h_Jnz x_24007 x_24006 x_24005
-| MovSuccessor (x_24010, x_24009, x_24008) ->
-  h_MovSuccessor x_24010 x_24009 x_24008
-| Call x_24011 -> h_Call x_24011
-| Mov (x_24013, x_24012) -> h_Mov x_24013 x_24012
+| Instruction x_24080 -> h_Instruction x_24080
+| Comment x_24081 -> h_Comment x_24081
+| Cost x_24082 -> h_Cost x_24082
+| Jmp x_24083 -> h_Jmp x_24083
+| Jnz (x_24086, x_24085, x_24084) -> h_Jnz x_24086 x_24085 x_24084
+| MovSuccessor (x_24089, x_24088, x_24087) ->
+  h_MovSuccessor x_24089 x_24088 x_24087
+| Call x_24090 -> h_Call x_24090
+| Mov (x_24092, x_24091) -> h_Mov x_24092 x_24091
 
 (** 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_24156 =
+let rec pseudo_assembly_program_rect_Type4 h_mk_pseudo_assembly_program x_24235 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24156
+    renamed_symbols0; final_label = final_label0 } = x_24235
   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_24158 =
+let rec pseudo_assembly_program_rect_Type5 h_mk_pseudo_assembly_program x_24237 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24158
+    renamed_symbols0; final_label = final_label0 } = x_24237
   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_24160 =
+let rec pseudo_assembly_program_rect_Type3 h_mk_pseudo_assembly_program x_24239 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24160
+    renamed_symbols0; final_label = final_label0 } = x_24239
   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_24162 =
+let rec pseudo_assembly_program_rect_Type2 h_mk_pseudo_assembly_program x_24241 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24162
+    renamed_symbols0; final_label = final_label0 } = x_24241
   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_24164 =
+let rec pseudo_assembly_program_rect_Type1 h_mk_pseudo_assembly_program x_24243 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24164
+    renamed_symbols0; final_label = final_label0 } = x_24243
   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_24166 =
+let rec pseudo_assembly_program_rect_Type0 h_mk_pseudo_assembly_program x_24245 =
   let { preamble = preamble0; code = code0; renamed_symbols =
-    renamed_symbols0; final_label = final_label0 } = x_24166
+    renamed_symbols0; final_label = final_label0 } = x_24245
   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_24182 =
+let rec labelled_object_code_rect_Type4 h_mk_labelled_object_code x_24261 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24182
+    final_pc = final_pc0 } = x_24261
   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_24184 =
+let rec labelled_object_code_rect_Type5 h_mk_labelled_object_code x_24263 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24184
+    final_pc = final_pc0 } = x_24263
   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_24186 =
+let rec labelled_object_code_rect_Type3 h_mk_labelled_object_code x_24265 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24186
+    final_pc = final_pc0 } = x_24265
   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_24188 =
+let rec labelled_object_code_rect_Type2 h_mk_labelled_object_code x_24267 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24188
+    final_pc = final_pc0 } = x_24267
   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_24190 =
+let rec labelled_object_code_rect_Type1 h_mk_labelled_object_code x_24269 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24190
+    final_pc = final_pc0 } = x_24269
   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_24192 =
+let rec labelled_object_code_rect_Type0 h_mk_labelled_object_code x_24271 =
   let { oc = oc0; costlabels = costlabels0; symboltable = symboltable0;
-    final_pc = final_pc0 } = x_24192
+    final_pc = final_pc0 } = x_24271
   in
   h_mk_labelled_object_code oc0 costlabels0 symboltable0 final_pc0 __

extracted/aSMCosts.ml

@@ -128 +128 @@
       (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S (Nat.S
       Nat.O)))))))))))))))) (Obj.magic pc) cost_labels);
-    StructuredTraces.as_result = (fun _ -> assert false (* absurd case *));
-    StructuredTraces.as_call_ident = (fun _ -> assert false (* absurd case *));
-    StructuredTraces.as_tailcall_ident = (fun _ -> assert false (* absurd case *)) }
+    StructuredTraces.as_result = (assert false (* absurd case *));
+    StructuredTraces.as_call_ident = (assert false (* absurd case *));
+    StructuredTraces.as_tailcall_ident = (assert false (* absurd case *)) }
 
 (** val trace_any_label_length :

extracted/aST.ml

@@ -418 +418 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type4 h_ASTint h_ASTptr = function
-| ASTint (x_3519, x_3518) -> h_ASTint x_3519 x_3518
+| ASTint (x_3532, x_3531) -> h_ASTint x_3532 x_3531
 | ASTptr -> h_ASTptr
 
@@ -424 +424 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type5 h_ASTint h_ASTptr = function
-| ASTint (x_3524, x_3523) -> h_ASTint x_3524 x_3523
+| ASTint (x_3537, x_3536) -> h_ASTint x_3537 x_3536
 | ASTptr -> h_ASTptr
 
@@ -430 +430 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type3 h_ASTint h_ASTptr = function
-| ASTint (x_3529, x_3528) -> h_ASTint x_3529 x_3528
+| ASTint (x_3542, x_3541) -> h_ASTint x_3542 x_3541
 | ASTptr -> h_ASTptr
 
@@ -436 +436 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type2 h_ASTint h_ASTptr = function
-| ASTint (x_3534, x_3533) -> h_ASTint x_3534 x_3533
+| ASTint (x_3547, x_3546) -> h_ASTint x_3547 x_3546
 | ASTptr -> h_ASTptr
 
@@ -442 +442 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type1 h_ASTint h_ASTptr = function
-| ASTint (x_3539, x_3538) -> h_ASTint x_3539 x_3538
+| ASTint (x_3552, x_3551) -> h_ASTint x_3552 x_3551
 | ASTptr -> h_ASTptr
 
@@ -448 +448 @@
     (intsize -> signedness -> 'a1) -> 'a1 -> typ -> 'a1 **)
 let rec typ_rect_Type0 h_ASTint h_ASTptr = function
-| ASTint (x_3544, x_3543) -> h_ASTint x_3544 x_3543
+| ASTint (x_3557, x_3556) -> h_ASTint x_3557 x_3556
 | 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_3579 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3579 in
+let rec signature_rect_Type4 h_mk_signature x_3592 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3592 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_3581 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3581 in
+let rec signature_rect_Type5 h_mk_signature x_3594 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3594 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_3583 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3583 in
+let rec signature_rect_Type3 h_mk_signature x_3596 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3596 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_3585 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3585 in
+let rec signature_rect_Type2 h_mk_signature x_3598 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3598 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_3587 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3587 in
+let rec signature_rect_Type1 h_mk_signature x_3600 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3600 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_3589 =
-  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3589 in
+let rec signature_rect_Type0 h_mk_signature x_3602 =
+  let { sig_args = sig_args0; sig_res = sig_res0 } = x_3602 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_3617 -> h_Init_int8 x_3617
-| Init_int16 x_3618 -> h_Init_int16 x_3618
-| Init_int32 x_3619 -> h_Init_int32 x_3619
-| Init_space x_3620 -> h_Init_space x_3620
-| Init_null -> h_Init_null
-| Init_addrof (x_3622, x_3621) -> h_Init_addrof x_3622 x_3621
-
-(** val init_data_rect_Type5 :
-    (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
-    '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_3630 -> h_Init_int8 x_3630
 | Init_int16 x_3631 -> h_Init_int16 x_3631
@@ -1002 +991 @@
 | Init_addrof (x_3635, x_3634) -> h_Init_addrof x_3635 x_3634
 
-(** val init_data_rect_Type3 :
+(** val init_data_rect_Type5 :
     (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
     '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
+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_3643 -> h_Init_int8 x_3643
 | Init_int16 x_3644 -> h_Init_int16 x_3644
@@ -1013 +1002 @@
 | Init_addrof (x_3648, x_3647) -> h_Init_addrof x_3648 x_3647
 
-(** val init_data_rect_Type2 :
+(** val init_data_rect_Type3 :
     (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
     '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
+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_3656 -> h_Init_int8 x_3656
 | Init_int16 x_3657 -> h_Init_int16 x_3657
@@ -1024 +1013 @@
 | Init_addrof (x_3661, x_3660) -> h_Init_addrof x_3661 x_3660
 
-(** val init_data_rect_Type1 :
+(** val init_data_rect_Type2 :
     (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
     '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
+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_3669 -> h_Init_int8 x_3669
 | Init_int16 x_3670 -> h_Init_int16 x_3670
@@ -1035 +1024 @@
 | Init_addrof (x_3674, x_3673) -> h_Init_addrof x_3674 x_3673
 
-(** val init_data_rect_Type0 :
+(** val init_data_rect_Type1 :
     (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
     '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
+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_3682 -> h_Init_int8 x_3682
 | Init_int16 x_3683 -> h_Init_int16 x_3683
@@ -1045 +1034 @@
 | Init_null -> h_Init_null
 | Init_addrof (x_3687, x_3686) -> h_Init_addrof x_3687 x_3686
+
+(** val init_data_rect_Type0 :
+    (bvint -> 'a1) -> (bvint -> 'a1) -> (bvint -> 'a1) -> (Nat.nat -> 'a1) ->
+    '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_3695 -> h_Init_int8 x_3695
+| Init_int16 x_3696 -> h_Init_int16 x_3696
+| Init_int32 x_3697 -> h_Init_int32 x_3697
+| Init_space x_3698 -> h_Init_space x_3698
+| Init_null -> h_Init_null
+| Init_addrof (x_3700, x_3699) -> h_Init_addrof x_3700 x_3699
 
 (** 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_3774 =
+let rec program_rect_Type4 h_mk_program x_3787 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3774
+    prog_main0 } = x_3787
   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_3776 =
+let rec program_rect_Type5 h_mk_program x_3789 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3776
+    prog_main0 } = x_3789
   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_3778 =
+let rec program_rect_Type3 h_mk_program x_3791 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3778
+    prog_main0 } = x_3791
   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_3780 =
+let rec program_rect_Type2 h_mk_program x_3793 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3780
+    prog_main0 } = x_3793
   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_3782 =
+let rec program_rect_Type1 h_mk_program x_3795 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3782
+    prog_main0 } = x_3795
   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_3784 =
+let rec program_rect_Type0 h_mk_program x_3797 =
   let { prog_vars = prog_vars0; prog_funct = prog_funct0; prog_main =
-    prog_main0 } = x_3784
+    prog_main0 } = x_3797
   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_3988 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3988 in
+let rec external_function_rect_Type4 h_mk_external_function x_4001 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4001 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_3990 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3990 in
+let rec external_function_rect_Type5 h_mk_external_function x_4003 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4003 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_3992 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3992 in
+let rec external_function_rect_Type3 h_mk_external_function x_4005 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4005 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_3994 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3994 in
+let rec external_function_rect_Type2 h_mk_external_function x_4007 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4007 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_3996 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3996 in
+let rec external_function_rect_Type1 h_mk_external_function x_4009 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4009 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_3998 =
-  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_3998 in
+let rec external_function_rect_Type0 h_mk_external_function x_4011 =
+  let { ef_id = ef_id0; ef_sig = ef_sig0 } = x_4011 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_4018 -> h_Internal x_4018
-| External x_4019 -> h_External x_4019
+| Internal x_4031 -> h_Internal x_4031
+| External x_4032 -> h_External x_4032
 
 (** val fundef_rect_Type5 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type5 h_Internal h_External = function
-| Internal x_4023 -> h_Internal x_4023
-| External x_4024 -> h_External x_4024
+| Internal x_4036 -> h_Internal x_4036
+| External x_4037 -> h_External x_4037
 
 (** val fundef_rect_Type3 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type3 h_Internal h_External = function
-| Internal x_4028 -> h_Internal x_4028
-| External x_4029 -> h_External x_4029
+| Internal x_4041 -> h_Internal x_4041
+| External x_4042 -> h_External x_4042
 
 (** val fundef_rect_Type2 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type2 h_Internal h_External = function
-| Internal x_4033 -> h_Internal x_4033
-| External x_4034 -> h_External x_4034
+| Internal x_4046 -> h_Internal x_4046
+| External x_4047 -> h_External x_4047
 
 (** val fundef_rect_Type1 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type1 h_Internal h_External = function
-| Internal x_4038 -> h_Internal x_4038
-| External x_4039 -> h_External x_4039
+| Internal x_4051 -> h_Internal x_4051
+| External x_4052 -> h_External x_4052
 
 (** val fundef_rect_Type0 :
     ('a1 -> 'a2) -> (external_function -> 'a2) -> 'a1 fundef -> 'a2 **)
 let rec fundef_rect_Type0 h_Internal h_External = function
-| Internal x_4043 -> h_Internal x_4043
-| External x_4044 -> h_External x_4044
+| Internal x_4056 -> h_Internal x_4056
+| External x_4057 -> h_External x_4057
 
 (** val fundef_inv_rect_Type4 :

extracted/backEndOps.ml

@@ -402 +402 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type4 h_mk_Eval x_18972 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18972 in
+let rec eval_rect_Type4 h_mk_Eval x_18985 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18985 in
   h_mk_Eval opaccs0 op4 op5
 
@@ -411 +411 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type5 h_mk_Eval x_18974 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18974 in
+let rec eval_rect_Type5 h_mk_Eval x_18987 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18987 in
   h_mk_Eval opaccs0 op4 op5
 
@@ -420 +420 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type3 h_mk_Eval x_18976 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18976 in
+let rec eval_rect_Type3 h_mk_Eval x_18989 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18989 in
   h_mk_Eval opaccs0 op4 op5
 
@@ -429 +429 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type2 h_mk_Eval x_18978 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18978 in
+let rec eval_rect_Type2 h_mk_Eval x_18991 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18991 in
   h_mk_Eval opaccs0 op4 op5
 
@@ -438 +438 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type1 h_mk_Eval x_18980 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18980 in
+let rec eval_rect_Type1 h_mk_Eval x_18993 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18993 in
   h_mk_Eval opaccs0 op4 op5
 
@@ -447 +447 @@
     -> (BitVector.bit -> op2 -> BitVector.byte -> BitVector.byte ->
     (BitVector.byte, BitVector.bit) Types.prod) -> 'a1) -> eval -> 'a1 **)
-let rec eval_rect_Type0 h_mk_Eval x_18982 =
-  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18982 in
+let rec eval_rect_Type0 h_mk_Eval x_18995 =
+  let { opaccs = opaccs0; op0 = op4; op3 = op5 } = x_18995 in
   h_mk_Eval opaccs0 op4 op5
 

extracted/bind_new.ml

@@ -35 +35 @@
     ('a1, 'a2) bind_new -> 'a3 **)
 let rec bind_new_rect_Type4 h_bret h_bnew = function
-| Bret x_20763 -> h_bret x_20763
-| Bnew x_20765 ->
-  h_bnew x_20765 (fun x_20764 ->
-    bind_new_rect_Type4 h_bret h_bnew (x_20765 x_20764))
+| Bret x_20842 -> h_bret x_20842
+| Bnew x_20844 ->
+  h_bnew x_20844 (fun x_20843 ->
+    bind_new_rect_Type4 h_bret h_bnew (x_20844 x_20843))
 
 (** val bind_new_rect_Type3 :
@@ -44 +44 @@
     ('a1, 'a2) bind_new -> 'a3 **)
 let rec bind_new_rect_Type3 h_bret h_bnew = function
-| Bret x_20775 -> h_bret x_20775
-| Bnew x_20777 ->
-  h_bnew x_20777 (fun x_20776 ->
-    bind_new_rect_Type3 h_bret h_bnew (x_20777 x_20776))
+| Bret x_20854 -> h_bret x_20854
+| Bnew x_20856 ->
+  h_bnew x_20856 (fun x_20855 ->
+    bind_new_rect_Type3 h_bret h_bnew (x_20856 x_20855))
 
 (** val bind_new_rect_Type2 :
@@ -53 +53 @@
     ('a1, 'a2) bind_new -> 'a3 **)
 let rec bind_new_rect_Type2 h_bret h_bnew = function
-| Bret x_20781 -> h_bret x_20781
-| Bnew x_20783 ->
-  h_bnew x_20783 (fun x_20782 ->
-    bind_new_rect_Type2 h_bret h_bnew (x_20783 x_20782))
+| Bret x_20860 -> h_bret x_20860
+| Bnew x_20862 ->
+  h_bnew x_20862 (fun x_20861 ->
+    bind_new_rect_Type2 h_bret h_bnew (x_20862 x_20861))
 
 (** val bind_new_rect_Type1 :
@@ -62 +62 @@
     ('a1, 'a2) bind_new -> 'a3 **)
 let rec bind_new_rect_Type1 h_bret h_bnew = function
-| Bret x_20787 -> h_bret x_20787
-| Bnew x_20789 ->
-  h_bnew x_20789 (fun x_20788 ->
-    bind_new_rect_Type1 h_bret h_bnew (x_20789 x_20788))
+| Bret x_20866 -> h_bret x_20866
+| Bnew x_20868 ->
+  h_bnew x_20868 (fun x_20867 ->
+    bind_new_rect_Type1 h_bret h_bnew (x_20868 x_20867))
 
 (** val bind_new_rect_Type0 :
@@ -71 +71 @@
     ('a1, 'a2) bind_new -> 'a3 **)
 let rec bind_new_rect_Type0 h_bret h_bnew = function
-| Bret x_20793 -> h_bret x_20793
-| Bnew x_20795 ->
-  h_bnew x_20795 (fun x_20794 ->
-    bind_new_rect_Type0 h_bret h_bnew (x_20795 x_20794))
+| Bret x_20872 -> h_bret x_20872
+| Bnew x_20874 ->
+  h_bnew x_20874 (fun x_20873 ->
+    bind_new_rect_Type0 h_bret h_bnew (x_20874 x_20873))
 
 (** val bind_new_inv_rect_Type4 :

extracted/bitVectorTrie.ml

@@ -49 +49 @@
     ('a1 -> 'a2) -> (Nat.nat -> 'a1 bitVectorTrie -> 'a1 bitVectorTrie -> 'a2
     -> 'a2 -> 'a2) -> (Nat.nat -> 'a2) -> Nat.nat -> 'a1 bitVectorTrie -> 'a2 **)
-let rec bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub x_14634 = function
-| Leaf x_14636 -> h_Leaf x_14636
-| Node (n, x_14638, x_14637) ->
-  h_Node n x_14638 x_14637
-    (bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub n x_14638)
-    (bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub n x_14637)
+let rec bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub x_14647 = function
+| Leaf x_14649 -> h_Leaf x_14649
+| Node (n, x_14651, x_14650) ->
+  h_Node n x_14651 x_14650
+    (bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub n x_14651)
+    (bitVectorTrie_rect_Type4 h_Leaf h_Node h_Stub n x_14650)
 | Stub n -> h_Stub n
 
@@ -60 +60 @@
     ('a1 -> 'a2) -> (Nat.nat -> 'a1 bitVectorTrie -> 'a1 bitVectorTrie -> 'a2
     -> 'a2 -> 'a2) -> (Nat.nat -> 'a2) -> Nat.nat -> 'a1 bitVectorTrie -> 'a2 **)
-let rec bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub x_14650 = function
-| Leaf x_14652 -> h_Leaf x_14652
-| Node (n, x_14654, x_14653) ->
-  h_Node n x_14654 x_14653
-    (bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub n x_14654)
-    (bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub n x_14653)
+let rec bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub x_14663 = function
+| Leaf x_14665 -> h_Leaf x_14665
+| Node (n, x_14667, x_14666) ->
+  h_Node n x_14667 x_14666
+    (bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub n x_14667)
+    (bitVectorTrie_rect_Type3 h_Leaf h_Node h_Stub n x_14666)
 | Stub n -> h_Stub n
 
@@ -71 +71 @@
     ('a1 -> 'a2) -> (Nat.nat -> 'a1 bitVectorTrie -> 'a1 bitVectorTrie -> 'a2
     -> 'a2 -> 'a2) -> (Nat.nat -> 'a2) -> Nat.nat -> 'a1 bitVectorTrie -> 'a2 **)
-let rec bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub x_14658 = function
-| Leaf x_14660 -> h_Leaf x_14660
-| Node (n, x_14662, x_14661) ->
-  h_Node n x_14662 x_14661
-    (bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub n x_14662)
-    (bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub n x_14661)
+let rec bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub x_14671 = function
+| Leaf x_14673 -> h_Leaf x_14673
+| Node (n, x_14675, x_14674) ->
+  h_Node n x_14675 x_14674
+    (bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub n x_14675)
+    (bitVectorTrie_rect_Type2 h_Leaf h_Node h_Stub n x_14674)
 | Stub n -> h_Stub n
 
@@ -82 +82 @@
     ('a1 -> 'a2) -> (Nat.nat -> 'a1 bitVectorTrie -> 'a1 bitVectorTrie -> 'a2
     -> 'a2 -> 'a2) -> (Nat.nat -> 'a2) -> Nat.nat -> 'a1 bitVectorTrie -> 'a2 **)
-let rec bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub x_14666 = function
-| Leaf x_14668 -> h_Leaf x_14668
-| Node (n, x_14670, x_14669) ->
-  h_Node n x_14670 x_14669
-    (bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub n x_14670)
-    (bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub n x_14669)
+let rec bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub x_14679 = function
+| Leaf x_14681 -> h_Leaf x_14681
+| Node (n, x_14683, x_14682) ->
+  h_Node n x_14683 x_14682
+    (bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub n x_14683)
+    (bitVectorTrie_rect_Type1 h_Leaf h_Node h_Stub n x_14682)
 | Stub n -> h_Stub n
 
@@ -93 +93 @@
     ('a1 -> 'a2) -> (Nat.nat -> 'a1 bitVectorTrie -> 'a1 bitVectorTrie -> 'a2
     -> 'a2 -> 'a2) -> (Nat.nat -> 'a2) -> Nat.nat -> 'a1 bitVectorTrie -> 'a2 **)
-let rec bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub x_14674 = function
-| Leaf x_14676 -> h_Leaf x_14676
-| Node (n, x_14678, x_14677) ->
-  h_Node n x_14678 x_14677
-    (bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub n x_14678)
-    (bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub n x_14677)
+let rec bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub x_14687 = function
+| Leaf x_14689 -> h_Leaf x_14689
+| Node (n, x_14691, x_14690) ->
+  h_Node n x_14691 x_14690
+    (bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub n x_14691)
+    (bitVectorTrie_rect_Type0 h_Leaf h_Node h_Stub n x_14690)
 | Stub n -> h_Stub n
 

extracted/blocks.ml

@@ -149 +149 @@
   | Types.None ->
     { Types.fst = { Types.fst = List.Nil; Types.snd = (fun x ->
-      Joint.Step_seq (Joint.nOOP (Joint.stmt_pars__o__uns_pars p) g)) };
+      Joint.Step_seq
+      (Joint.nOOP (Joint.stmt_pars__o__uns_pars__o__u_pars p) g)) };
       Types.snd = List.Nil }
   | Types.Some pr ->

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_6009 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6009 in
+let rec program_counter_rect_Type4 h_mk_program_counter x_6022 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6022 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_6011 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6011 in
+let rec program_counter_rect_Type5 h_mk_program_counter x_6024 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6024 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_6013 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6013 in
+let rec program_counter_rect_Type3 h_mk_program_counter x_6026 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6026 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_6015 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6015 in
+let rec program_counter_rect_Type2 h_mk_program_counter x_6028 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6028 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_6017 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6017 in
+let rec program_counter_rect_Type1 h_mk_program_counter x_6030 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6030 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_6019 =
-  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6019 in
+let rec program_counter_rect_Type0 h_mk_program_counter x_6032 =
+  let { pc_block = pc_block0; pc_offset = pc_offset0 } = x_6032 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_6035 =
-  let part_no = x_6035 in h_mk_part part_no __
+let rec part_rect_Type4 h_mk_part x_6048 =
+  let part_no = x_6048 in h_mk_part part_no __
 
 (** val part_rect_Type5 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type5 h_mk_part x_6037 =
-  let part_no = x_6037 in h_mk_part part_no __
+let rec part_rect_Type5 h_mk_part x_6050 =
+  let part_no = x_6050 in h_mk_part part_no __
 
 (** val part_rect_Type3 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type3 h_mk_part x_6039 =
-  let part_no = x_6039 in h_mk_part part_no __
+let rec part_rect_Type3 h_mk_part x_6052 =
+  let part_no = x_6052 in h_mk_part part_no __
 
 (** val part_rect_Type2 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type2 h_mk_part x_6041 =
-  let part_no = x_6041 in h_mk_part part_no __
+let rec part_rect_Type2 h_mk_part x_6054 =
+  let part_no = x_6054 in h_mk_part part_no __
 
 (** val part_rect_Type1 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type1 h_mk_part x_6043 =
-  let part_no = x_6043 in h_mk_part part_no __
+let rec part_rect_Type1 h_mk_part x_6056 =
+  let part_no = x_6056 in h_mk_part part_no __
 
 (** val part_rect_Type0 : (Nat.nat -> __ -> 'a1) -> part -> 'a1 **)
-let rec part_rect_Type0 h_mk_part x_6045 =
-  let part_no = x_6045 in h_mk_part part_no __
+let rec part_rect_Type0 h_mk_part x_6058 =
+  let part_no = x_6058 in h_mk_part part_no __
 
 (** val part_no : part -> Nat.nat **)
@@ -486 +486 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6079, x_6078, x_6077) -> h_BVXor x_6079 x_6078 x_6077
-| BVByte x_6080 -> h_BVByte x_6080
-| BVnull x_6081 -> h_BVnull x_6081
-| BVptr (x_6083, x_6082) -> h_BVptr x_6083 x_6082
-| BVpc (x_6085, x_6084) -> h_BVpc x_6085 x_6084
+| BVXor (x_6092, x_6091, x_6090) -> h_BVXor x_6092 x_6091 x_6090
+| BVByte x_6093 -> h_BVByte x_6093
+| BVnull x_6094 -> h_BVnull x_6094
+| BVptr (x_6096, x_6095) -> h_BVptr x_6096 x_6095
+| BVpc (x_6098, x_6097) -> h_BVpc x_6098 x_6097
 
 (** val beval_rect_Type5 :
@@ -500 +500 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6096, x_6095, x_6094) -> h_BVXor x_6096 x_6095 x_6094
-| BVByte x_6097 -> h_BVByte x_6097
-| BVnull x_6098 -> h_BVnull x_6098
-| BVptr (x_6100, x_6099) -> h_BVptr x_6100 x_6099
-| BVpc (x_6102, x_6101) -> h_BVpc x_6102 x_6101
+| BVXor (x_6109, x_6108, x_6107) -> h_BVXor x_6109 x_6108 x_6107
+| BVByte x_6110 -> h_BVByte x_6110
+| BVnull x_6111 -> h_BVnull x_6111
+| BVptr (x_6113, x_6112) -> h_BVptr x_6113 x_6112
+| BVpc (x_6115, x_6114) -> h_BVpc x_6115 x_6114
 
 (** val beval_rect_Type3 :
@@ -514 +514 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6113, x_6112, x_6111) -> h_BVXor x_6113 x_6112 x_6111
-| BVByte x_6114 -> h_BVByte x_6114
-| BVnull x_6115 -> h_BVnull x_6115
-| BVptr (x_6117, x_6116) -> h_BVptr x_6117 x_6116
-| BVpc (x_6119, x_6118) -> h_BVpc x_6119 x_6118
+| BVXor (x_6126, x_6125, x_6124) -> h_BVXor x_6126 x_6125 x_6124
+| BVByte x_6127 -> h_BVByte x_6127
+| BVnull x_6128 -> h_BVnull x_6128
+| BVptr (x_6130, x_6129) -> h_BVptr x_6130 x_6129
+| BVpc (x_6132, x_6131) -> h_BVpc x_6132 x_6131
 
 (** val beval_rect_Type2 :
@@ -528 +528 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6130, x_6129, x_6128) -> h_BVXor x_6130 x_6129 x_6128
-| BVByte x_6131 -> h_BVByte x_6131
-| BVnull x_6132 -> h_BVnull x_6132
-| BVptr (x_6134, x_6133) -> h_BVptr x_6134 x_6133
-| BVpc (x_6136, x_6135) -> h_BVpc x_6136 x_6135
+| BVXor (x_6143, x_6142, x_6141) -> h_BVXor x_6143 x_6142 x_6141
+| BVByte x_6144 -> h_BVByte x_6144
+| BVnull x_6145 -> h_BVnull x_6145
+| BVptr (x_6147, x_6146) -> h_BVptr x_6147 x_6146
+| BVpc (x_6149, x_6148) -> h_BVpc x_6149 x_6148
 
 (** val beval_rect_Type1 :
@@ -542 +542 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6147, x_6146, x_6145) -> h_BVXor x_6147 x_6146 x_6145
-| BVByte x_6148 -> h_BVByte x_6148
-| BVnull x_6149 -> h_BVnull x_6149
-| BVptr (x_6151, x_6150) -> h_BVptr x_6151 x_6150
-| BVpc (x_6153, x_6152) -> h_BVpc x_6153 x_6152
+| BVXor (x_6160, x_6159, x_6158) -> h_BVXor x_6160 x_6159 x_6158
+| BVByte x_6161 -> h_BVByte x_6161
+| BVnull x_6162 -> h_BVnull x_6162
+| BVptr (x_6164, x_6163) -> h_BVptr x_6164 x_6163
+| BVpc (x_6166, x_6165) -> h_BVpc x_6166 x_6165
 
 (** val beval_rect_Type0 :
@@ -556 +556 @@
 | BVundef -> h_BVundef
 | BVnonzero -> h_BVnonzero
-| BVXor (x_6164, x_6163, x_6162) -> h_BVXor x_6164 x_6163 x_6162
-| BVByte x_6165 -> h_BVByte x_6165
-| BVnull x_6166 -> h_BVnull x_6166
-| BVptr (x_6168, x_6167) -> h_BVptr x_6168 x_6167
-| BVpc (x_6170, x_6169) -> h_BVpc x_6170 x_6169
+| BVXor (x_6177, x_6176, x_6175) -> h_BVXor x_6177 x_6176 x_6175
+| BVByte x_6178 -> h_BVByte x_6178
+| BVnull x_6179 -> h_BVnull x_6179
+| BVptr (x_6181, x_6180) -> h_BVptr x_6181 x_6180
+| BVpc (x_6183, x_6182) -> h_BVpc x_6183 x_6182
 
 (** val beval_inv_rect_Type4 :
@@ -899 +899 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type4 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6289 -> h_BBbit x_6289
+| BBbit x_6302 -> h_BBbit x_6302
 | BBundef -> h_BBundef
-| BBptrcarry (x_6292, x_6291, p, x_6290) ->
-  h_BBptrcarry x_6292 x_6291 p x_6290
+| BBptrcarry (x_6305, x_6304, p, x_6303) ->
+  h_BBptrcarry x_6305 x_6304 p x_6303
 
 (** val bebit_rect_Type5 :
@@ -908 +908 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type5 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6297 -> h_BBbit x_6297
+| BBbit x_6310 -> h_BBbit x_6310
 | BBundef -> h_BBundef
-| BBptrcarry (x_6300, x_6299, p, x_6298) ->
-  h_BBptrcarry x_6300 x_6299 p x_6298
+| BBptrcarry (x_6313, x_6312, p, x_6311) ->
+  h_BBptrcarry x_6313 x_6312 p x_6311
 
 (** val bebit_rect_Type3 :
@@ -917 +917 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type3 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6305 -> h_BBbit x_6305
+| BBbit x_6318 -> h_BBbit x_6318
 | BBundef -> h_BBundef
-| BBptrcarry (x_6308, x_6307, p, x_6306) ->
-  h_BBptrcarry x_6308 x_6307 p x_6306
+| BBptrcarry (x_6321, x_6320, p, x_6319) ->
+  h_BBptrcarry x_6321 x_6320 p x_6319
 
 (** val bebit_rect_Type2 :
@@ -926 +926 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type2 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6313 -> h_BBbit x_6313
+| BBbit x_6326 -> h_BBbit x_6326
 | BBundef -> h_BBundef
-| BBptrcarry (x_6316, x_6315, p, x_6314) ->
-  h_BBptrcarry x_6316 x_6315 p x_6314
+| BBptrcarry (x_6329, x_6328, p, x_6327) ->
+  h_BBptrcarry x_6329 x_6328 p x_6327
 
 (** val bebit_rect_Type1 :
@@ -935 +935 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type1 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6321 -> h_BBbit x_6321
+| BBbit x_6334 -> h_BBbit x_6334
 | BBundef -> h_BBundef
-| BBptrcarry (x_6324, x_6323, p, x_6322) ->
-  h_BBptrcarry x_6324 x_6323 p x_6322
+| BBptrcarry (x_6337, x_6336, p, x_6335) ->
+  h_BBptrcarry x_6337 x_6336 p x_6335
 
 (** val bebit_rect_Type0 :
@@ -944 +944 @@
     BitVector.bitVector -> 'a1) -> bebit -> 'a1 **)
 let rec bebit_rect_Type0 h_BBbit h_BBundef h_BBptrcarry = function
-| BBbit x_6329 -> h_BBbit x_6329
+| BBbit x_6342 -> h_BBbit x_6342
 | BBundef -> h_BBundef
-| BBptrcarry (x_6332, x_6331, p, x_6330) ->
-  h_BBptrcarry x_6332 x_6331 p x_6330
+| BBptrcarry (x_6345, x_6344, p, x_6343) ->
+  h_BBptrcarry x_6345 x_6344 p x_6343
 
 (** 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_7259 x_7258 = function
+let rec classify_add_cases_rect_Type4 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7272 x_7271 = 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_7266 x_7265 = function
+let rec classify_add_cases_rect_Type5 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7279 x_7278 = 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_7273 x_7272 = function
+let rec classify_add_cases_rect_Type3 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7286 x_7285 = 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_7280 x_7279 = function
+let rec classify_add_cases_rect_Type2 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7293 x_7292 = 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_7287 x_7286 = function
+let rec classify_add_cases_rect_Type1 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7300 x_7299 = 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_7294 x_7293 = function
+let rec classify_add_cases_rect_Type0 h_add_case_ii h_add_case_pi h_add_case_ip h_add_default x_7307 x_7306 = 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_7350 x_7349 = function
+let rec classify_sub_cases_rect_Type4 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7363 x_7362 = 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_7357 x_7356 = function
+let rec classify_sub_cases_rect_Type5 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7370 x_7369 = 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_7364 x_7363 = function
+let rec classify_sub_cases_rect_Type3 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7377 x_7376 = 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_7371 x_7370 = function
+let rec classify_sub_cases_rect_Type2 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7384 x_7383 = 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_7378 x_7377 = function
+let rec classify_sub_cases_rect_Type1 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7391 x_7390 = 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_7385 x_7384 = function
+let rec classify_sub_cases_rect_Type0 h_sub_case_ii h_sub_case_pi h_sub_case_pp h_sub_default x_7398 x_7397 = 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_7439 x_7438 = function
+let rec classify_aop_cases_rect_Type4 h_aop_case_ii h_aop_default x_7452 x_7451 = 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_7444 x_7443 = function
+let rec classify_aop_cases_rect_Type5 h_aop_case_ii h_aop_default x_7457 x_7456 = 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_7449 x_7448 = function
+let rec classify_aop_cases_rect_Type3 h_aop_case_ii h_aop_default x_7462 x_7461 = 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_7454 x_7453 = function
+let rec classify_aop_cases_rect_Type2 h_aop_case_ii h_aop_default x_7467 x_7466 = 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_7459 x_7458 = function
+let rec classify_aop_cases_rect_Type1 h_aop_case_ii h_aop_default x_7472 x_7471 = 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_7464 x_7463 = function
+let rec classify_aop_cases_rect_Type0 h_aop_case_ii h_aop_default x_7477 x_7476 = 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_7505 x_7504 = function
+let rec classify_cmp_cases_rect_Type4 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7518 x_7517 = 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_7511 x_7510 = function
+let rec classify_cmp_cases_rect_Type5 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7524 x_7523 = 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_7517 x_7516 = function
+let rec classify_cmp_cases_rect_Type3 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7530 x_7529 = 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_7523 x_7522 = function
+let rec classify_cmp_cases_rect_Type2 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7536 x_7535 = 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_7529 x_7528 = function
+let rec classify_cmp_cases_rect_Type1 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7542 x_7541 = 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_7535 x_7534 = function
+let rec classify_cmp_cases_rect_Type0 h_cmp_case_ii h_cmp_case_pp h_cmp_default x_7548 x_7547 = 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_7583, x_7582) -> h_fun_case_f x_7583 x_7582
+| Fun_case_f (x_7596, x_7595) -> h_fun_case_f x_7596 x_7595
 | 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_7588, x_7587) -> h_fun_case_f x_7588 x_7587
+| Fun_case_f (x_7601, x_7600) -> h_fun_case_f x_7601 x_7600
 | 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_7593, x_7592) -> h_fun_case_f x_7593 x_7592
+| Fun_case_f (x_7606, x_7605) -> h_fun_case_f x_7606 x_7605
 | 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_7598, x_7597) -> h_fun_case_f x_7598 x_7597
+| Fun_case_f (x_7611, x_7610) -> h_fun_case_f x_7611 x_7610
 | 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_7603, x_7602) -> h_fun_case_f x_7603 x_7602
+| Fun_case_f (x_7616, x_7615) -> h_fun_case_f x_7616 x_7615
 | 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_7608, x_7607) -> h_fun_case_f x_7608 x_7607
+| Fun_case_f (x_7621, x_7620) -> h_fun_case_f x_7621 x_7620
 | Fun_default -> h_fun_default
 

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_13616 = function
-| Id (t, x_13618) -> h_Id t x_13618
-| Cst (t, x_13619) -> h_Cst t x_13619
-| Op1 (t, t', x_13621, x_13620) ->
-  h_Op1 t t' x_13621 x_13620
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13620)
-| Op2 (t1, t2, t', x_13624, x_13623, x_13622) ->
-  h_Op2 t1 t2 t' x_13624 x_13623 x_13622
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13623)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13622)
-| Mem (t, x_13625) ->
-  h_Mem t x_13625
+let rec expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13629 = function
+| Id (t, x_13631) -> h_Id t x_13631
+| Cst (t, x_13632) -> h_Cst t x_13632
+| Op1 (t, t', x_13634, x_13633) ->
+  h_Op1 t t' x_13634 x_13633
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13633)
+| Op2 (t1, t2, t', x_13637, x_13636, x_13635) ->
+  h_Op2 t1 t2 t' x_13637 x_13636 x_13635
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13636)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13635)
+| Mem (t, x_13638) ->
+  h_Mem t x_13638
     (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13625)
-| Cond (sz, sg, t, x_13628, x_13627, x_13626) ->
-  h_Cond sz sg t x_13628 x_13627 x_13626
+      x_13638)
+| Cond (sz, sg, t, x_13641, x_13640, x_13639) ->
+  h_Cond sz sg t x_13641 x_13640 x_13639
     (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13628)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13627)
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13626)
-| Ecost (t, x_13630, x_13629) ->
-  h_Ecost t x_13630 x_13629
-    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13629)
+      (sz, sg)) x_13641)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13640)
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13639)
+| Ecost (t, x_13643, x_13642) ->
+  h_Ecost t x_13643 x_13642
+    (expr_rect_Type4 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13642)
 
 (** 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_13660 = function
-| Id (t, x_13662) -> h_Id t x_13662
-| Cst (t, x_13663) -> h_Cst t x_13663
-| Op1 (t, t', x_13665, x_13664) ->
-  h_Op1 t t' x_13665 x_13664
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13664)
-| Op2 (t1, t2, t', x_13668, x_13667, x_13666) ->
-  h_Op2 t1 t2 t' x_13668 x_13667 x_13666
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13667)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13666)
-| Mem (t, x_13669) ->
-  h_Mem t x_13669
+let rec expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13673 = function
+| Id (t, x_13675) -> h_Id t x_13675
+| Cst (t, x_13676) -> h_Cst t x_13676
+| Op1 (t, t', x_13678, x_13677) ->
+  h_Op1 t t' x_13678 x_13677
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13677)
+| Op2 (t1, t2, t', x_13681, x_13680, x_13679) ->
+  h_Op2 t1 t2 t' x_13681 x_13680 x_13679
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13680)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13679)
+| Mem (t, x_13682) ->
+  h_Mem t x_13682
     (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13669)
-| Cond (sz, sg, t, x_13672, x_13671, x_13670) ->
-  h_Cond sz sg t x_13672 x_13671 x_13670
+      x_13682)
+| Cond (sz, sg, t, x_13685, x_13684, x_13683) ->
+  h_Cond sz sg t x_13685 x_13684 x_13683
     (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13672)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13671)
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13670)
-| Ecost (t, x_13674, x_13673) ->
-  h_Ecost t x_13674 x_13673
-    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13673)
+      (sz, sg)) x_13685)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13684)
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13683)
+| Ecost (t, x_13687, x_13686) ->
+  h_Ecost t x_13687 x_13686
+    (expr_rect_Type3 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13686)
 
 (** 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_13682 = function
-| Id (t, x_13684) -> h_Id t x_13684
-| Cst (t, x_13685) -> h_Cst t x_13685
-| Op1 (t, t', x_13687, x_13686) ->
-  h_Op1 t t' x_13687 x_13686
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13686)
-| Op2 (t1, t2, t', x_13690, x_13689, x_13688) ->
-  h_Op2 t1 t2 t' x_13690 x_13689 x_13688
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13689)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13688)
-| Mem (t, x_13691) ->
-  h_Mem t x_13691
+let rec expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13695 = function
+| Id (t, x_13697) -> h_Id t x_13697
+| Cst (t, x_13698) -> h_Cst t x_13698
+| Op1 (t, t', x_13700, x_13699) ->
+  h_Op1 t t' x_13700 x_13699
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13699)
+| Op2 (t1, t2, t', x_13703, x_13702, x_13701) ->
+  h_Op2 t1 t2 t' x_13703 x_13702 x_13701
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13702)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13701)
+| Mem (t, x_13704) ->
+  h_Mem t x_13704
     (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13691)
-| Cond (sz, sg, t, x_13694, x_13693, x_13692) ->
-  h_Cond sz sg t x_13694 x_13693 x_13692
+      x_13704)
+| Cond (sz, sg, t, x_13707, x_13706, x_13705) ->
+  h_Cond sz sg t x_13707 x_13706 x_13705
     (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13694)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13693)
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13692)
-| Ecost (t, x_13696, x_13695) ->
-  h_Ecost t x_13696 x_13695
-    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13695)
+      (sz, sg)) x_13707)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13706)
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13705)
+| Ecost (t, x_13709, x_13708) ->
+  h_Ecost t x_13709 x_13708
+    (expr_rect_Type2 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13708)
 
 (** 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_13704 = function
-| Id (t, x_13706) -> h_Id t x_13706
-| Cst (t, x_13707) -> h_Cst t x_13707
-| Op1 (t, t', x_13709, x_13708) ->
-  h_Op1 t t' x_13709 x_13708
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13708)
-| Op2 (t1, t2, t', x_13712, x_13711, x_13710) ->
-  h_Op2 t1 t2 t' x_13712 x_13711 x_13710
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13711)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13710)
-| Mem (t, x_13713) ->
-  h_Mem t x_13713
+let rec expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13717 = function
+| Id (t, x_13719) -> h_Id t x_13719
+| Cst (t, x_13720) -> h_Cst t x_13720
+| Op1 (t, t', x_13722, x_13721) ->
+  h_Op1 t t' x_13722 x_13721
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13721)
+| Op2 (t1, t2, t', x_13725, x_13724, x_13723) ->
+  h_Op2 t1 t2 t' x_13725 x_13724 x_13723
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13724)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13723)
+| Mem (t, x_13726) ->
+  h_Mem t x_13726
     (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13713)
-| Cond (sz, sg, t, x_13716, x_13715, x_13714) ->
-  h_Cond sz sg t x_13716 x_13715 x_13714
+      x_13726)
+| Cond (sz, sg, t, x_13729, x_13728, x_13727) ->
+  h_Cond sz sg t x_13729 x_13728 x_13727
     (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13716)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13715)
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13714)
-| Ecost (t, x_13718, x_13717) ->
-  h_Ecost t x_13718 x_13717
-    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13717)
+      (sz, sg)) x_13729)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13728)
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13727)
+| Ecost (t, x_13731, x_13730) ->
+  h_Ecost t x_13731 x_13730
+    (expr_rect_Type1 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13730)
 
 (** 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_13726 = function
-| Id (t, x_13728) -> h_Id t x_13728
-| Cst (t, x_13729) -> h_Cst t x_13729
-| Op1 (t, t', x_13731, x_13730) ->
-  h_Op1 t t' x_13731 x_13730
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13730)
-| Op2 (t1, t2, t', x_13734, x_13733, x_13732) ->
-  h_Op2 t1 t2 t' x_13734 x_13733 x_13732
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13733)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13732)
-| Mem (t, x_13735) ->
-  h_Mem t x_13735
+let rec expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost x_13739 = function
+| Id (t, x_13741) -> h_Id t x_13741
+| Cst (t, x_13742) -> h_Cst t x_13742
+| Op1 (t, t', x_13744, x_13743) ->
+  h_Op1 t t' x_13744 x_13743
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13743)
+| Op2 (t1, t2, t', x_13747, x_13746, x_13745) ->
+  h_Op2 t1 t2 t' x_13747 x_13746 x_13745
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t1 x_13746)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t2 x_13745)
+| Mem (t, x_13748) ->
+  h_Mem t x_13748
     (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost AST.ASTptr
-      x_13735)
-| Cond (sz, sg, t, x_13738, x_13737, x_13736) ->
-  h_Cond sz sg t x_13738 x_13737 x_13736
+      x_13748)
+| Cond (sz, sg, t, x_13751, x_13750, x_13749) ->
+  h_Cond sz sg t x_13751 x_13750 x_13749
     (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost (AST.ASTint
-      (sz, sg)) x_13738)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13737)
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13736)
-| Ecost (t, x_13740, x_13739) ->
-  h_Ecost t x_13740 x_13739
-    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13739)
+      (sz, sg)) x_13751)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13750)
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13749)
+| Ecost (t, x_13753, x_13752) ->
+  h_Ecost t x_13753 x_13752
+    (expr_rect_Type0 h_Id h_Cst h_Op1 h_Op2 h_Mem h_Cond h_Ecost t x_13752)
 
 (** 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_13911, x_13910) -> h_St_assign t x_13911 x_13910
-| St_store (t, x_13913, x_13912) -> h_St_store t x_13913 x_13912
-| St_call (x_13916, x_13915, x_13914) -> h_St_call x_13916 x_13915 x_13914
-| St_seq (x_13918, x_13917) ->
-  h_St_seq x_13918 x_13917
+| St_assign (t, x_13924, x_13923) -> h_St_assign t x_13924 x_13923
+| St_store (t, x_13926, x_13925) -> h_St_store t x_13926 x_13925
+| St_call (x_13929, x_13928, x_13927) -> h_St_call x_13929 x_13928 x_13927
+| St_seq (x_13931, x_13930) ->
+  h_St_seq x_13931 x_13930
     (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_13918)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13931)
     (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_13917)
-| St_ifthenelse (sz, sg, x_13921, x_13920, x_13919) ->
-  h_St_ifthenelse sz sg x_13921 x_13920 x_13919
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13930)
+| St_ifthenelse (sz, sg, x_13934, x_13933, x_13932) ->
+  h_St_ifthenelse sz sg x_13934 x_13933 x_13932
     (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_13920)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13933)
     (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_13919)
-| St_return x_13922 -> h_St_return x_13922
-| St_label (x_13924, x_13923) ->
-  h_St_label x_13924 x_13923
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13932)
+| St_return x_13935 -> h_St_return x_13935
+| St_label (x_13937, x_13936) ->
+  h_St_label x_13937 x_13936
     (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_13923)
-| St_goto x_13925 -> h_St_goto x_13925
-| St_cost (x_13927, x_13926) ->
-  h_St_cost x_13927 x_13926
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13936)
+| St_goto x_13938 -> h_St_goto x_13938
+| St_cost (x_13940, x_13939) ->
+  h_St_cost x_13940 x_13939
     (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_13926)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13939)
 
 (** 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_13969, x_13968) -> h_St_assign t x_13969 x_13968
-| St_store (t, x_13971, x_13970) -> h_St_store t x_13971 x_13970
-| St_call (x_13974, x_13973, x_13972) -> h_St_call x_13974 x_13973 x_13972
-| St_seq (x_13976, x_13975) ->
-  h_St_seq x_13976 x_13975
+| St_assign (t, x_13982, x_13981) -> h_St_assign t x_13982 x_13981
+| St_store (t, x_13984, x_13983) -> h_St_store t x_13984 x_13983
+| St_call (x_13987, x_13986, x_13985) -> h_St_call x_13987 x_13986 x_13985
+| St_seq (x_13989, x_13988) ->
+  h_St_seq x_13989 x_13988
     (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_13976)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13989)
     (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_13975)
-| St_ifthenelse (sz, sg, x_13979, x_13978, x_13977) ->
-  h_St_ifthenelse sz sg x_13979 x_13978 x_13977
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13988)
+| St_ifthenelse (sz, sg, x_13992, x_13991, x_13990) ->
+  h_St_ifthenelse sz sg x_13992 x_13991 x_13990
     (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_13978)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13991)
     (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_13977)
-| St_return x_13980 -> h_St_return x_13980
-| St_label (x_13982, x_13981) ->
-  h_St_label x_13982 x_13981
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13990)
+| St_return x_13993 -> h_St_return x_13993
+| St_label (x_13995, x_13994) ->
+  h_St_label x_13995 x_13994
     (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_13981)
-| St_goto x_13983 -> h_St_goto x_13983
-| St_cost (x_13985, x_13984) ->
-  h_St_cost x_13985 x_13984
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13994)
+| St_goto x_13996 -> h_St_goto x_13996
+| St_cost (x_13998, x_13997) ->
+  h_St_cost x_13998 x_13997
     (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_13984)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_13997)
 
 (** 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_13998, x_13997) -> h_St_assign t x_13998 x_13997
-| St_store (t, x_14000, x_13999) -> h_St_store t x_14000 x_13999
-| St_call (x_14003, x_14002, x_14001) -> h_St_call x_14003 x_14002 x_14001
-| St_seq (x_14005, x_14004) ->
-  h_St_seq x_14005 x_14004
+| St_assign (t, x_14011, x_14010) -> h_St_assign t x_14011 x_14010
+| St_store (t, x_14013, x_14012) -> h_St_store t x_14013 x_14012
+| St_call (x_14016, x_14015, x_14014) -> h_St_call x_14016 x_14015 x_14014
+| St_seq (x_14018, x_14017) ->
+  h_St_seq x_14018 x_14017
     (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_14005)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14018)
     (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_14004)
-| St_ifthenelse (sz, sg, x_14008, x_14007, x_14006) ->
-  h_St_ifthenelse sz sg x_14008 x_14007 x_14006
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14017)
+| St_ifthenelse (sz, sg, x_14021, x_14020, x_14019) ->
+  h_St_ifthenelse sz sg x_14021 x_14020 x_14019
     (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_14007)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14020)
     (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_14006)
-| St_return x_14009 -> h_St_return x_14009
-| St_label (x_14011, x_14010) ->
-  h_St_label x_14011 x_14010
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14019)
+| St_return x_14022 -> h_St_return x_14022
+| St_label (x_14024, x_14023) ->
+  h_St_label x_14024 x_14023
     (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_14010)
-| St_goto x_14012 -> h_St_goto x_14012
-| St_cost (x_14014, x_14013) ->
-  h_St_cost x_14014 x_14013
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14023)
+| St_goto x_14025 -> h_St_goto x_14025
+| St_cost (x_14027, x_14026) ->
+  h_St_cost x_14027 x_14026
     (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_14013)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14026)
 
 (** 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_14027, x_14026) -> h_St_assign t x_14027 x_14026
-| St_store (t, x_14029, x_14028) -> h_St_store t x_14029 x_14028
-| St_call (x_14032, x_14031, x_14030) -> h_St_call x_14032 x_14031 x_14030
-| St_seq (x_14034, x_14033) ->
-  h_St_seq x_14034 x_14033
+| St_assign (t, x_14040, x_14039) -> h_St_assign t x_14040 x_14039
+| St_store (t, x_14042, x_14041) -> h_St_store t x_14042 x_14041
+| St_call (x_14045, x_14044, x_14043) -> h_St_call x_14045 x_14044 x_14043
+| St_seq (x_14047, x_14046) ->
+  h_St_seq x_14047 x_14046
     (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_14034)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14047)
     (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_14033)
-| St_ifthenelse (sz, sg, x_14037, x_14036, x_14035) ->
-  h_St_ifthenelse sz sg x_14037 x_14036 x_14035
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14046)
+| St_ifthenelse (sz, sg, x_14050, x_14049, x_14048) ->
+  h_St_ifthenelse sz sg x_14050 x_14049 x_14048
     (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_14036)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14049)
     (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_14035)
-| St_return x_14038 -> h_St_return x_14038
-| St_label (x_14040, x_14039) ->
-  h_St_label x_14040 x_14039
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14048)
+| St_return x_14051 -> h_St_return x_14051
+| St_label (x_14053, x_14052) ->
+  h_St_label x_14053 x_14052
     (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_14039)
-| St_goto x_14041 -> h_St_goto x_14041
-| St_cost (x_14043, x_14042) ->
-  h_St_cost x_14043 x_14042
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14052)
+| St_goto x_14054 -> h_St_goto x_14054
+| St_cost (x_14056, x_14055) ->
+  h_St_cost x_14056 x_14055
     (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_14042)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14055)
 
 (** 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_14056, x_14055) -> h_St_assign t x_14056 x_14055
-| St_store (t, x_14058, x_14057) -> h_St_store t x_14058 x_14057
-| St_call (x_14061, x_14060, x_14059) -> h_St_call x_14061 x_14060 x_14059
-| St_seq (x_14063, x_14062) ->
-  h_St_seq x_14063 x_14062
+| St_assign (t, x_14069, x_14068) -> h_St_assign t x_14069 x_14068
+| St_store (t, x_14071, x_14070) -> h_St_store t x_14071 x_14070
+| St_call (x_14074, x_14073, x_14072) -> h_St_call x_14074 x_14073 x_14072
+| St_seq (x_14076, x_14075) ->
+  h_St_seq x_14076 x_14075
     (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_14063)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14076)
     (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_14062)
-| St_ifthenelse (sz, sg, x_14066, x_14065, x_14064) ->
-  h_St_ifthenelse sz sg x_14066 x_14065 x_14064
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14075)
+| St_ifthenelse (sz, sg, x_14079, x_14078, x_14077) ->
+  h_St_ifthenelse sz sg x_14079 x_14078 x_14077
     (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_14065)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14078)
     (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_14064)
-| St_return x_14067 -> h_St_return x_14067
-| St_label (x_14069, x_14068) ->
-  h_St_label x_14069 x_14068
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14077)
+| St_return x_14080 -> h_St_return x_14080
+| St_label (x_14082, x_14081) ->
+  h_St_label x_14082 x_14081
     (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_14068)
-| St_goto x_14070 -> h_St_goto x_14070
-| St_cost (x_14072, x_14071) ->
-  h_St_cost x_14072 x_14071
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14081)
+| St_goto x_14083 -> h_St_goto x_14083
+| St_cost (x_14085, x_14084) ->
+  h_St_cost x_14085 x_14084
     (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_14071)
+      h_St_ifthenelse h_St_return h_St_label h_St_goto h_St_cost x_14084)
 
 (** 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_14367 =
+let rec internal_function_rect_Type4 h_mk_internal_function x_14380 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14367
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14380
   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_14369 =
+let rec internal_function_rect_Type5 h_mk_internal_function x_14382 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14369
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14382
   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_14371 =
+let rec internal_function_rect_Type3 h_mk_internal_function x_14384 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14371
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14384
   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_14373 =
+let rec internal_function_rect_Type2 h_mk_internal_function x_14386 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14373
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14386
   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_14375 =
+let rec internal_function_rect_Type1 h_mk_internal_function x_14388 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14375
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14388
   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_14377 =
+let rec internal_function_rect_Type0 h_mk_internal_function x_14390 =
   let { f_return = f_return0; f_params = f_params0; f_vars = f_vars0;
-    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14377
+    f_stacksize = f_stacksize0; f_body = f_body0 } = x_14390
   in
   h_mk_internal_function f_return0 f_params0 f_vars0 __ f_stacksize0 f_body0

extracted/compiler.ml

@@ -286 +286 @@
   let { Types.fst = p3; Types.snd = stack_cost } = eta29073 in
   let p4 = LTLToLIN.ltl_to_lin p3 in
-  let p5 = LINToASM.lin_to_asm p4 in
-  (match p5 with
-   | Types.None -> Errors.Error (Errors.msg ErrorMessages.AssemblyTooLarge)
-   | Types.Some p6 ->
-     Errors.OK { Types.fst = { Types.fst = p6; Types.snd = stack_cost };
-       Types.snd = max_stack })
+  Obj.magic
+    (Monad.m_bind0 (Monad.max_def Errors.res0)
+      (Obj.magic
+        (Errors.opt_to_res (Errors.msg ErrorMessages.AssemblyTooLarge)
+          (LINToASM.lin_to_asm p4))) (fun p5 ->
+      Monad.m_return0 (Monad.max_def Errors.res0) { Types.fst = { Types.fst =
+        p5; Types.snd = stack_cost }; Types.snd = max_stack }))
 
 open Assembly
@@ -351 +352 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type4 h_mk_compiler_output x_24820 =
+let rec compiler_output_rect_Type4 h_mk_compiler_output x_24899 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24820
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24899
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0
@@ -363 +364 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type5 h_mk_compiler_output x_24822 =
+let rec compiler_output_rect_Type5 h_mk_compiler_output x_24901 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24822
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24901
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0
@@ -375 +376 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type3 h_mk_compiler_output x_24824 =
+let rec compiler_output_rect_Type3 h_mk_compiler_output x_24903 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24824
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24903
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0
@@ -387 +388 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type2 h_mk_compiler_output x_24826 =
+let rec compiler_output_rect_Type2 h_mk_compiler_output x_24905 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24826
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24905
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0
@@ -399 +400 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type1 h_mk_compiler_output x_24828 =
+let rec compiler_output_rect_Type1 h_mk_compiler_output x_24907 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24828
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24907
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0
@@ -411 +412 @@
     Csyntax.clight_program -> Label.clight_cost_map -> 'a1) ->
     compiler_output -> 'a1 **)
-let rec compiler_output_rect_Type0 h_mk_compiler_output x_24830 =
+let rec compiler_output_rect_Type0 h_mk_compiler_output x_24909 =
   let { c_labelled_object_code = c_labelled_object_code0; c_stack_cost =
     c_stack_cost0; c_max_stack = c_max_stack0; c_labelled_clight =
-    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24830
+    c_labelled_clight0; c_clight_cost_map = c_clight_cost_map0 } = x_24909
   in
   h_mk_compiler_output c_labelled_object_code0 c_stack_cost0 c_max_stack0

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_8557, x_8556) ->
-  h_Kseq x_8557 x_8556
+| Kseq (x_8570, x_8569) ->
+  h_Kseq x_8570 x_8569
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8556)
-| Kwhile (x_8560, x_8559, x_8558) ->
-  h_Kwhile x_8560 x_8559 x_8558
+      h_Kswitch h_Kcall x_8569)
+| Kwhile (x_8573, x_8572, x_8571) ->
+  h_Kwhile x_8573 x_8572 x_8571
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8558)
-| Kdowhile (x_8563, x_8562, x_8561) ->
-  h_Kdowhile x_8563 x_8562 x_8561
+      h_Kswitch h_Kcall x_8571)
+| Kdowhile (x_8576, x_8575, x_8574) ->
+  h_Kdowhile x_8576 x_8575 x_8574
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8561)
-| Kfor2 (x_8567, x_8566, x_8565, x_8564) ->
-  h_Kfor2 x_8567 x_8566 x_8565 x_8564
+      h_Kswitch h_Kcall x_8574)
+| Kfor2 (x_8580, x_8579, x_8578, x_8577) ->
+  h_Kfor2 x_8580 x_8579 x_8578 x_8577
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8564)
-| Kfor3 (x_8571, x_8570, x_8569, x_8568) ->
-  h_Kfor3 x_8571 x_8570 x_8569 x_8568
+      h_Kswitch h_Kcall x_8577)
+| Kfor3 (x_8584, x_8583, x_8582, x_8581) ->
+  h_Kfor3 x_8584 x_8583 x_8582 x_8581
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8568)
-| Kswitch x_8572 ->
-  h_Kswitch x_8572
+      h_Kswitch h_Kcall x_8581)
+| Kswitch x_8585 ->
+  h_Kswitch x_8585
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8572)
-| Kcall (x_8576, x_8575, x_8574, x_8573) ->
-  h_Kcall x_8576 x_8575 x_8574 x_8573
+      h_Kswitch h_Kcall x_8585)
+| Kcall (x_8589, x_8588, x_8587, x_8586) ->
+  h_Kcall x_8589 x_8588 x_8587 x_8586
     (cont_rect_Type4 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8573)
+      h_Kswitch h_Kcall x_8586)
 
 (** 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_8617, x_8616) ->
-  h_Kseq x_8617 x_8616
+| Kseq (x_8630, x_8629) ->
+  h_Kseq x_8630 x_8629
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8616)
-| Kwhile (x_8620, x_8619, x_8618) ->
-  h_Kwhile x_8620 x_8619 x_8618
+      h_Kswitch h_Kcall x_8629)
+| Kwhile (x_8633, x_8632, x_8631) ->
+  h_Kwhile x_8633 x_8632 x_8631
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8618)
-| Kdowhile (x_8623, x_8622, x_8621) ->
-  h_Kdowhile x_8623 x_8622 x_8621
+      h_Kswitch h_Kcall x_8631)
+| Kdowhile (x_8636, x_8635, x_8634) ->
+  h_Kdowhile x_8636 x_8635 x_8634
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8621)
-| Kfor2 (x_8627, x_8626, x_8625, x_8624) ->
-  h_Kfor2 x_8627 x_8626 x_8625 x_8624
+      h_Kswitch h_Kcall x_8634)
+| Kfor2 (x_8640, x_8639, x_8638, x_8637) ->
+  h_Kfor2 x_8640 x_8639 x_8638 x_8637
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8624)
-| Kfor3 (x_8631, x_8630, x_8629, x_8628) ->
-  h_Kfor3 x_8631 x_8630 x_8629 x_8628
+      h_Kswitch h_Kcall x_8637)
+| Kfor3 (x_8644, x_8643, x_8642, x_8641) ->
+  h_Kfor3 x_8644 x_8643 x_8642 x_8641
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8628)
-| Kswitch x_8632 ->
-  h_Kswitch x_8632
+      h_Kswitch h_Kcall x_8641)
+| Kswitch x_8645 ->
+  h_Kswitch x_8645
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8632)
-| Kcall (x_8636, x_8635, x_8634, x_8633) ->
-  h_Kcall x_8636 x_8635 x_8634 x_8633
+      h_Kswitch h_Kcall x_8645)
+| Kcall (x_8649, x_8648, x_8647, x_8646) ->
+  h_Kcall x_8649 x_8648 x_8647 x_8646
     (cont_rect_Type3 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8633)
+      h_Kswitch h_Kcall x_8646)
 
 (** 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_8647, x_8646) ->
-  h_Kseq x_8647 x_8646
+| Kseq (x_8660, x_8659) ->
+  h_Kseq x_8660 x_8659
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8646)
-| Kwhile (x_8650, x_8649, x_8648) ->
-  h_Kwhile x_8650 x_8649 x_8648
+      h_Kswitch h_Kcall x_8659)
+| Kwhile (x_8663, x_8662, x_8661) ->
+  h_Kwhile x_8663 x_8662 x_8661
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8648)
-| Kdowhile (x_8653, x_8652, x_8651) ->
-  h_Kdowhile x_8653 x_8652 x_8651
+      h_Kswitch h_Kcall x_8661)
+| Kdowhile (x_8666, x_8665, x_8664) ->
+  h_Kdowhile x_8666 x_8665 x_8664
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8651)
-| Kfor2 (x_8657, x_8656, x_8655, x_8654) ->
-  h_Kfor2 x_8657 x_8656 x_8655 x_8654
+      h_Kswitch h_Kcall x_8664)
+| Kfor2 (x_8670, x_8669, x_8668, x_8667) ->
+  h_Kfor2 x_8670 x_8669 x_8668 x_8667
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8654)
-| Kfor3 (x_8661, x_8660, x_8659, x_8658) ->
-  h_Kfor3 x_8661 x_8660 x_8659 x_8658
+      h_Kswitch h_Kcall x_8667)
+| Kfor3 (x_8674, x_8673, x_8672, x_8671) ->
+  h_Kfor3 x_8674 x_8673 x_8672 x_8671
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8658)
-| Kswitch x_8662 ->
-  h_Kswitch x_8662
+      h_Kswitch h_Kcall x_8671)
+| Kswitch x_8675 ->
+  h_Kswitch x_8675
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8662)
-| Kcall (x_8666, x_8665, x_8664, x_8663) ->
-  h_Kcall x_8666 x_8665 x_8664 x_8663
+      h_Kswitch h_Kcall x_8675)
+| Kcall (x_8679, x_8678, x_8677, x_8676) ->
+  h_Kcall x_8679 x_8678 x_8677 x_8676
     (cont_rect_Type2 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8663)
+      h_Kswitch h_Kcall x_8676)
 
 (** 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_8677, x_8676) ->
-  h_Kseq x_8677 x_8676
+| Kseq (x_8690, x_8689) ->
+  h_Kseq x_8690 x_8689
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8676)
-| Kwhile (x_8680, x_8679, x_8678) ->
-  h_Kwhile x_8680 x_8679 x_8678
+      h_Kswitch h_Kcall x_8689)
+| Kwhile (x_8693, x_8692, x_8691) ->
+  h_Kwhile x_8693 x_8692 x_8691
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8678)
-| Kdowhile (x_8683, x_8682, x_8681) ->
-  h_Kdowhile x_8683 x_8682 x_8681
+      h_Kswitch h_Kcall x_8691)
+| Kdowhile (x_8696, x_8695, x_8694) ->
+  h_Kdowhile x_8696 x_8695 x_8694
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8681)
-| Kfor2 (x_8687, x_8686, x_8685, x_8684) ->
-  h_Kfor2 x_8687 x_8686 x_8685 x_8684
+      h_Kswitch h_Kcall x_8694)
+| Kfor2 (x_8700, x_8699, x_8698, x_8697) ->
+  h_Kfor2 x_8700 x_8699 x_8698 x_8697
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8684)
-| Kfor3 (x_8691, x_8690, x_8689, x_8688) ->
-  h_Kfor3 x_8691 x_8690 x_8689 x_8688
+      h_Kswitch h_Kcall x_8697)
+| Kfor3 (x_8704, x_8703, x_8702, x_8701) ->
+  h_Kfor3 x_8704 x_8703 x_8702 x_8701
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8688)
-| Kswitch x_8692 ->
-  h_Kswitch x_8692
+      h_Kswitch h_Kcall x_8701)
+| Kswitch x_8705 ->
+  h_Kswitch x_8705
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8692)
-| Kcall (x_8696, x_8695, x_8694, x_8693) ->
-  h_Kcall x_8696 x_8695 x_8694 x_8693
+      h_Kswitch h_Kcall x_8705)
+| Kcall (x_8709, x_8708, x_8707, x_8706) ->
+  h_Kcall x_8709 x_8708 x_8707 x_8706
     (cont_rect_Type1 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8693)
+      h_Kswitch h_Kcall x_8706)
 
 (** 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_8707, x_8706) ->
-  h_Kseq x_8707 x_8706
+| Kseq (x_8720, x_8719) ->
+  h_Kseq x_8720 x_8719
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8706)
-| Kwhile (x_8710, x_8709, x_8708) ->
-  h_Kwhile x_8710 x_8709 x_8708
+      h_Kswitch h_Kcall x_8719)
+| Kwhile (x_8723, x_8722, x_8721) ->
+  h_Kwhile x_8723 x_8722 x_8721
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8708)
-| Kdowhile (x_8713, x_8712, x_8711) ->
-  h_Kdowhile x_8713 x_8712 x_8711
+      h_Kswitch h_Kcall x_8721)
+| Kdowhile (x_8726, x_8725, x_8724) ->
+  h_Kdowhile x_8726 x_8725 x_8724
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8711)
-| Kfor2 (x_8717, x_8716, x_8715, x_8714) ->
-  h_Kfor2 x_8717 x_8716 x_8715 x_8714
+      h_Kswitch h_Kcall x_8724)
+| Kfor2 (x_8730, x_8729, x_8728, x_8727) ->
+  h_Kfor2 x_8730 x_8729 x_8728 x_8727
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8714)
-| Kfor3 (x_8721, x_8720, x_8719, x_8718) ->
-  h_Kfor3 x_8721 x_8720 x_8719 x_8718
+      h_Kswitch h_Kcall x_8727)
+| Kfor3 (x_8734, x_8733, x_8732, x_8731) ->
+  h_Kfor3 x_8734 x_8733 x_8732 x_8731
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8718)
-| Kswitch x_8722 ->
-  h_Kswitch x_8722
+      h_Kswitch h_Kcall x_8731)
+| Kswitch x_8735 ->
+  h_Kswitch x_8735
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8722)
-| Kcall (x_8726, x_8725, x_8724, x_8723) ->
-  h_Kcall x_8726 x_8725 x_8724 x_8723
+      h_Kswitch h_Kcall x_8735)
+| Kcall (x_8739, x_8738, x_8737, x_8736) ->
+  h_Kcall x_8739 x_8738 x_8737 x_8736
     (cont_rect_Type0 h_Kstop h_Kseq h_Kwhile h_Kdowhile h_Kfor2 h_Kfor3
-      h_Kswitch h_Kcall x_8723)
+      h_Kswitch h_Kcall x_8736)
 
 (** 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_4352 =
+let rec function_rect_Type4 h_mk_function x_4365 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4352
+    fn_body = fn_body0 } = x_4365
   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_4354 =
+let rec function_rect_Type5 h_mk_function x_4367 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4354
+    fn_body = fn_body0 } = x_4367
   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_4356 =
+let rec function_rect_Type3 h_mk_function x_4369 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4356
+    fn_body = fn_body0 } = x_4369
   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_4358 =
+let rec function_rect_Type2 h_mk_function x_4371 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4358
+    fn_body = fn_body0 } = x_4371
   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_4360 =
+let rec function_rect_Type1 h_mk_function x_4373 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4360
+    fn_body = fn_body0 } = x_4373
   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_4362 =
+let rec function_rect_Type0 h_mk_function x_4375 =
   let { fn_return = fn_return0; fn_params = fn_params0; fn_vars = fn_vars0;
-    fn_body = fn_body0 } = x_4362
+    fn_body = fn_body0 } = x_4375
   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_4384 -> h_CL_Internal x_4384
-| CL_External (x_4387, x_4386, x_4385) -> h_CL_External x_4387 x_4386 x_4385
+| CL_Internal x_4397 -> h_CL_Internal x_4397
+| CL_External (x_4400, x_4399, x_4398) -> h_CL_External x_4400 x_4399 x_4398
 
 (** val clight_fundef_rect_Type5 :
@@ -1329 +1329 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type5 h_CL_Internal h_CL_External = function
-| CL_Internal x_4391 -> h_CL_Internal x_4391
-| CL_External (x_4394, x_4393, x_4392) -> h_CL_External x_4394 x_4393 x_4392
+| CL_Internal x_4404 -> h_CL_Internal x_4404
+| CL_External (x_4407, x_4406, x_4405) -> h_CL_External x_4407 x_4406 x_4405
 
 (** val clight_fundef_rect_Type3 :
@@ -1336 +1336 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type3 h_CL_Internal h_CL_External = function
-| CL_Internal x_4398 -> h_CL_Internal x_4398
-| CL_External (x_4401, x_4400, x_4399) -> h_CL_External x_4401 x_4400 x_4399
+| CL_Internal x_4411 -> h_CL_Internal x_4411
+| CL_External (x_4414, x_4413, x_4412) -> h_CL_External x_4414 x_4413 x_4412
 
 (** val clight_fundef_rect_Type2 :
@@ -1343 +1343 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type2 h_CL_Internal h_CL_External = function
-| CL_Internal x_4405 -> h_CL_Internal x_4405
-| CL_External (x_4408, x_4407, x_4406) -> h_CL_External x_4408 x_4407 x_4406
+| CL_Internal x_4418 -> h_CL_Internal x_4418
+| CL_External (x_4421, x_4420, x_4419) -> h_CL_External x_4421 x_4420 x_4419
 
 (** val clight_fundef_rect_Type1 :
@@ -1350 +1350 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type1 h_CL_Internal h_CL_External = function
-| CL_Internal x_4412 -> h_CL_Internal x_4412
-| CL_External (x_4415, x_4414, x_4413) -> h_CL_External x_4415 x_4414 x_4413
+| CL_Internal x_4425 -> h_CL_Internal x_4425
+| CL_External (x_4428, x_4427, x_4426) -> h_CL_External x_4428 x_4427 x_4426
 
 (** val clight_fundef_rect_Type0 :
@@ -1357 +1357 @@
     clight_fundef -> 'a1 **)
 let rec clight_fundef_rect_Type0 h_CL_Internal h_CL_External = function
-| CL_Internal x_4419 -> h_CL_Internal x_4419
-| CL_External (x_4422, x_4421, x_4420) -> h_CL_External x_4422 x_4421 x_4420
+| CL_Internal x_4432 -> h_CL_Internal x_4432
+| CL_External (x_4435, x_4434, x_4433) -> h_CL_External x_4435 x_4434 x_4433
 
 (** val clight_fundef_inv_rect_Type4 :
@@ -1532 +1532 @@
 (** 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_4472 = function
+let rec mode_rect_Type4 h_By_value h_By_reference h_By_nothing x_4485 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1539 +1539 @@
 (** 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_4477 = function
+let rec mode_rect_Type5 h_By_value h_By_reference h_By_nothing x_4490 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1546 +1546 @@
 (** 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_4482 = function
+let rec mode_rect_Type3 h_By_value h_By_reference h_By_nothing x_4495 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1553 +1553 @@
 (** 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_4487 = function
+let rec mode_rect_Type2 h_By_value h_By_reference h_By_nothing x_4500 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1560 +1560 @@
 (** 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_4492 = function
+let rec mode_rect_Type1 h_By_value h_By_reference h_By_nothing x_4505 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference
@@ -1567 +1567 @@
 (** 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_4497 = function
+let rec mode_rect_Type0 h_By_value h_By_reference h_By_nothing x_4510 = function
 | By_value t -> h_By_value t
 | By_reference -> h_By_reference

extracted/division.ml

@@ -28 +28 @@
 let rec natp_rect_Type4 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4758 -> h_ppos x_4758
+| Ppos x_4771 -> h_ppos x_4771
 
 (** val natp_rect_Type5 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
 let rec natp_rect_Type5 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4762 -> h_ppos x_4762
+| Ppos x_4775 -> h_ppos x_4775
 
 (** val natp_rect_Type3 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
 let rec natp_rect_Type3 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4766 -> h_ppos x_4766
+| Ppos x_4779 -> h_ppos x_4779
 
 (** val natp_rect_Type2 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
 let rec natp_rect_Type2 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4770 -> h_ppos x_4770
+| Ppos x_4783 -> h_ppos x_4783
 
 (** val natp_rect_Type1 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
 let rec natp_rect_Type1 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4774 -> h_ppos x_4774
+| Ppos x_4787 -> h_ppos x_4787
 
 (** val natp_rect_Type0 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
 let rec natp_rect_Type0 h_pzero h_ppos = function
 | Pzero -> h_pzero
-| Ppos x_4778 -> h_ppos x_4778
+| Ppos x_4791 -> h_ppos x_4791
 
 (** val natp_inv_rect_Type4 :

extracted/eRTL.ml

@@ -112 +112 @@
     (Registers.register -> 'a1) -> (I8051.register -> 'a1) -> move_dst -> 'a1 **)
 let rec move_dst_rect_Type4 h_PSD h_HDW = function
-| PSD x_21042 -> h_PSD x_21042
-| HDW x_21043 -> h_HDW x_21043
+| PSD x_21121 -> h_PSD x_21121
+| HDW x_21122 -> h_HDW x_21122
 
 (** 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_21047 -> h_PSD x_21047
-| HDW x_21048 -> h_HDW x_21048
+| PSD x_21126 -> h_PSD x_21126
+| HDW x_21127 -> h_HDW x_21127
 
 (** 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_21052 -> h_PSD x_21052
-| HDW x_21053 -> h_HDW x_21053
+| PSD x_21131 -> h_PSD x_21131
+| HDW x_21132 -> h_HDW x_21132
 
 (** 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_21057 -> h_PSD x_21057
-| HDW x_21058 -> h_HDW x_21058
+| PSD x_21136 -> h_PSD x_21136
+| HDW x_21137 -> h_HDW x_21137
 
 (** 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_21062 -> h_PSD x_21062
-| HDW x_21063 -> h_HDW x_21063
+| PSD x_21141 -> h_PSD x_21141
+| HDW x_21142 -> h_HDW x_21142
 
 (** 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_21067 -> h_PSD x_21067
-| HDW x_21068 -> h_HDW x_21068
+| PSD x_21146 -> h_PSD x_21146
+| HDW x_21147 -> h_HDW x_21147
 
 (** val move_dst_inv_rect_Type4 :
@@ -338 +338 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21107 -> h_ertl_frame_size x_21107
+| Ertl_frame_size x_21186 -> h_ertl_frame_size x_21186
 
 (** val ertl_seq_rect_Type5 :
@@ -345 +345 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21112 -> h_ertl_frame_size x_21112
+| Ertl_frame_size x_21191 -> h_ertl_frame_size x_21191
 
 (** val ertl_seq_rect_Type3 :
@@ -352 +352 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21117 -> h_ertl_frame_size x_21117
+| Ertl_frame_size x_21196 -> h_ertl_frame_size x_21196
 
 (** val ertl_seq_rect_Type2 :
@@ -359 +359 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21122 -> h_ertl_frame_size x_21122
+| Ertl_frame_size x_21201 -> h_ertl_frame_size x_21201
 
 (** val ertl_seq_rect_Type1 :
@@ -366 +366 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21127 -> h_ertl_frame_size x_21127
+| Ertl_frame_size x_21206 -> h_ertl_frame_size x_21206
 
 (** val ertl_seq_rect_Type0 :
@@ -373 +373 @@
 | Ertl_new_frame -> h_ertl_new_frame
 | Ertl_del_frame -> h_ertl_del_frame
-| Ertl_frame_size x_21132 -> h_ertl_frame_size x_21132
+| Ertl_frame_size x_21211 -> h_ertl_frame_size x_21211
 
 (** val ertl_seq_inv_rect_Type4 :
@@ -426 +426 @@
     Bool.False }
 
+(** val regs_from_move_dst : move_dst -> Registers.register List.list **)
+let regs_from_move_dst = function
+| PSD r -> List.Cons (r, List.Nil)
+| HDW x -> List.Nil
+
+(** val regs_from_move_src : move_src -> Registers.register List.list **)
+let regs_from_move_src = function
+| Joint.Reg r ->
+  (match r with
+   | PSD r1 -> List.Cons (r1, List.Nil)
+   | HDW x -> List.Nil)
+| Joint.Imm x -> List.Nil
+
+(** val ertl_ext_seq_regs : ertl_seq -> Registers.register List.list **)
+let ertl_ext_seq_regs = function
+| Ertl_new_frame -> List.Nil
+| Ertl_del_frame -> List.Nil
+| Ertl_frame_size r -> List.Cons (r, List.Nil)
+
+(** val eRTL_functs : Joint.get_pseudo_reg_functs **)
+let eRTL_functs =
+  { Joint.acc_a_regs = (fun r -> List.Cons ((Obj.magic r), List.Nil));
+    Joint.acc_b_regs = (fun r -> List.Cons ((Obj.magic r), List.Nil));
+    Joint.acc_a_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.acc_b_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.dpl_regs = (fun r -> List.Cons
+    ((Obj.magic r), List.Nil)); Joint.dph_regs = (fun r -> List.Cons
+    ((Obj.magic r), List.Nil)); Joint.dpl_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.dph_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.snd_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.pair_move_regs = (fun x ->
+    List.append (regs_from_move_dst (Obj.magic x).Types.fst)
+      (regs_from_move_src (Obj.magic x).Types.snd)); Joint.f_call_args =
+    (fun x -> List.Nil); Joint.f_call_dest = (fun x -> List.Nil);
+    Joint.ext_seq_regs = (Obj.magic ertl_ext_seq_regs); Joint.params_regs =
+    (fun x -> List.Nil) }
+
 (** val eRTL : Joint.graph_params **)
 let eRTL =
-  eRTL_uns
+  { Joint.u_pars = eRTL_uns; Joint.functs = eRTL_functs }
 
 type ertl_program = Joint.joint_program
@@ -561 +608 @@
 let dpi1__o__ertl_seq_to_joint_seq__o__seq_to_step__o__inject x1 x2 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTL) x1
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTL) x1
     (ertl_seq_joint x1 x2.Types.dpi1)
 
@@ -578 +625 @@
 let eject__o__ertl_seq_to_joint_seq__o__seq_to_step__o__inject x1 x2 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTL) x1
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTL) x1
     (ertl_seq_joint x1 (Types.pi1 x2))
 
@@ -595 +642 @@
 let ertl_seq_to_joint_seq__o__seq_to_step__o__inject x0 x1 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTL) x0 (ertl_seq_joint x0 x1)
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTL) x0
+    (ertl_seq_joint x0 x1)
 
 (** val ertl_seq_to_joint_seq__o__inject :

extracted/eRTL.mli

@@ -281 +281 @@
 val eRTL_uns : Joint.unserialized_params
 
+val regs_from_move_dst : move_dst -> Registers.register List.list
+
+val regs_from_move_src : move_src -> Registers.register List.list
+
+val ertl_ext_seq_regs : ertl_seq -> Registers.register List.list
+
+val eRTL_functs : Joint.get_pseudo_reg_functs
+
 val eRTL : Joint.graph_params
 

extracted/eRTLptr.ml

@@ -116 +116 @@
     (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_21176 -> h_ertlptr_ertl x_21176
-| LOW_ADDRESS (x_21178, x_21177) -> h_LOW_ADDRESS x_21178 x_21177
-| HIGH_ADDRESS (x_21180, x_21179) -> h_HIGH_ADDRESS x_21180 x_21179
+| Ertlptr_ertl x_21255 -> h_ertlptr_ertl x_21255
+| LOW_ADDRESS (x_21257, x_21256) -> h_LOW_ADDRESS x_21257 x_21256
+| HIGH_ADDRESS (x_21259, x_21258) -> h_HIGH_ADDRESS x_21259 x_21258
 
 (** val ertlptr_seq_rect_Type5 :
@@ -124 +124 @@
     (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_21185 -> h_ertlptr_ertl x_21185
-| LOW_ADDRESS (x_21187, x_21186) -> h_LOW_ADDRESS x_21187 x_21186
-| HIGH_ADDRESS (x_21189, x_21188) -> h_HIGH_ADDRESS x_21189 x_21188
+| Ertlptr_ertl x_21264 -> h_ertlptr_ertl x_21264
+| LOW_ADDRESS (x_21266, x_21265) -> h_LOW_ADDRESS x_21266 x_21265
+| HIGH_ADDRESS (x_21268, x_21267) -> h_HIGH_ADDRESS x_21268 x_21267
 
 (** val ertlptr_seq_rect_Type3 :
@@ -132 +132 @@
     (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_21194 -> h_ertlptr_ertl x_21194
-| LOW_ADDRESS (x_21196, x_21195) -> h_LOW_ADDRESS x_21196 x_21195
-| HIGH_ADDRESS (x_21198, x_21197) -> h_HIGH_ADDRESS x_21198 x_21197
+| Ertlptr_ertl x_21273 -> h_ertlptr_ertl x_21273
+| LOW_ADDRESS (x_21275, x_21274) -> h_LOW_ADDRESS x_21275 x_21274
+| HIGH_ADDRESS (x_21277, x_21276) -> h_HIGH_ADDRESS x_21277 x_21276
 
 (** val ertlptr_seq_rect_Type2 :
@@ -140 +140 @@
     (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_21203 -> h_ertlptr_ertl x_21203
-| LOW_ADDRESS (x_21205, x_21204) -> h_LOW_ADDRESS x_21205 x_21204
-| HIGH_ADDRESS (x_21207, x_21206) -> h_HIGH_ADDRESS x_21207 x_21206
+| Ertlptr_ertl x_21282 -> h_ertlptr_ertl x_21282
+| LOW_ADDRESS (x_21284, x_21283) -> h_LOW_ADDRESS x_21284 x_21283
+| HIGH_ADDRESS (x_21286, x_21285) -> h_HIGH_ADDRESS x_21286 x_21285
 
 (** val ertlptr_seq_rect_Type1 :
@@ -148 +148 @@
     (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_21212 -> h_ertlptr_ertl x_21212
-| LOW_ADDRESS (x_21214, x_21213) -> h_LOW_ADDRESS x_21214 x_21213
-| HIGH_ADDRESS (x_21216, x_21215) -> h_HIGH_ADDRESS x_21216 x_21215
+| Ertlptr_ertl x_21291 -> h_ertlptr_ertl x_21291
+| LOW_ADDRESS (x_21293, x_21292) -> h_LOW_ADDRESS x_21293 x_21292
+| HIGH_ADDRESS (x_21295, x_21294) -> h_HIGH_ADDRESS x_21295 x_21294
 
 (** val ertlptr_seq_rect_Type0 :
@@ -156 +156 @@
     (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_21221 -> h_ertlptr_ertl x_21221
-| LOW_ADDRESS (x_21223, x_21222) -> h_LOW_ADDRESS x_21223 x_21222
-| HIGH_ADDRESS (x_21225, x_21224) -> h_HIGH_ADDRESS x_21225 x_21224
+| Ertlptr_ertl x_21300 -> h_ertlptr_ertl x_21300
+| LOW_ADDRESS (x_21302, x_21301) -> h_LOW_ADDRESS x_21302 x_21301
+| HIGH_ADDRESS (x_21304, x_21303) -> h_HIGH_ADDRESS x_21304 x_21303
 
 (** val ertlptr_seq_inv_rect_Type4 :
@@ -220 +220 @@
     Bool.False }
 
+(** val eRTLptr_functs : Joint.get_pseudo_reg_functs **)
+let eRTLptr_functs =
+  { Joint.acc_a_regs = (fun r -> List.Cons ((Obj.magic r), List.Nil));
+    Joint.acc_b_regs = (fun r -> List.Cons ((Obj.magic r), List.Nil));
+    Joint.acc_a_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.acc_b_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.dpl_regs = (fun r -> List.Cons
+    ((Obj.magic r), List.Nil)); Joint.dph_regs = (fun r -> List.Cons
+    ((Obj.magic r), List.Nil)); Joint.dpl_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.dph_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.snd_args = (fun arg ->
+    match Obj.magic arg with
+    | Joint.Reg r -> List.Cons (r, List.Nil)
+    | Joint.Imm x -> List.Nil); Joint.pair_move_regs = (fun x ->
+    List.append (ERTL.regs_from_move_dst (Obj.magic x).Types.fst)
+      (ERTL.regs_from_move_src (Obj.magic x).Types.snd)); Joint.f_call_args =
+    (fun x -> List.Nil); Joint.f_call_dest = (fun x -> List.Nil);
+    Joint.ext_seq_regs = (fun s ->
+    match Obj.magic s with
+    | Ertlptr_ertl s' -> ERTL.ertl_ext_seq_regs s'
+    | LOW_ADDRESS (r, x) -> List.Cons (r, List.Nil)
+    | HIGH_ADDRESS (r, x) -> List.Cons (r, List.Nil)); Joint.params_regs =
+    (fun x -> List.Nil) }
+
 (** val eRTLptr : Joint.graph_params **)
 let eRTLptr =
-  eRTLptr_uns
+  { Joint.u_pars = eRTLptr_uns; Joint.functs = eRTLptr_functs }
 
 type ertlptr_program = Joint.joint_program
@@ -241 +273 @@
 let dpi1__o__ertlptr_seq_to_joint_seq__o__seq_to_step__o__inject x1 x2 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTLptr) x1
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTLptr) x1
     (ertlptr_seq_joint x1 x2.Types.dpi1)
 
@@ -258 +290 @@
 let eject__o__ertlptr_seq_to_joint_seq__o__seq_to_step__o__inject x1 x2 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTLptr) x1
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTLptr) x1
     (ertlptr_seq_joint x1 (Types.pi1 x2))
 
@@ -275 +307 @@
 let ertlptr_seq_to_joint_seq__o__seq_to_step__o__inject x0 x1 =
   Joint.seq_to_step__o__inject
-    (Joint.gp_to_p__o__stmt_pars__o__uns_pars eRTLptr) x0
+    (Joint.gp_to_p__o__stmt_pars__o__uns_pars__o__u_pars eRTLptr) x0
     (ertlptr_seq_joint x0 x1)
 

extracted/eRTLptr.mli

@@ -167 +167 @@
 val eRTLptr_uns : Joint.unserialized_params
 
+val eRTLptr_functs : Joint.get_pseudo_reg_functs
+
 val eRTLptr : Joint.graph_params
 

extracted/eRTLptrToLTL.ml

@@ -167 +167 @@
     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_21731 -> h_arg_decision_colour x_21731
-| Arg_decision_spill x_21732 -> h_arg_decision_spill x_21732
-| Arg_decision_imm x_21733 -> h_arg_decision_imm x_21733
+| Arg_decision_colour x_21810 -> h_arg_decision_colour x_21810
+| Arg_decision_spill x_21811 -> h_arg_decision_spill x_21811
+| Arg_decision_imm x_21812 -> h_arg_decision_imm x_21812
 
 (** val arg_decision_rect_Type5 :
@@ -175 +175 @@
     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_21738 -> h_arg_decision_colour x_21738
-| Arg_decision_spill x_21739 -> h_arg_decision_spill x_21739
-| Arg_decision_imm x_21740 -> h_arg_decision_imm x_21740
+| Arg_decision_colour x_21817 -> h_arg_decision_colour x_21817
+| Arg_decision_spill x_21818 -> h_arg_decision_spill x_21818
+| Arg_decision_imm x_21819 -> h_arg_decision_imm x_21819
 
 (** val arg_decision_rect_Type3 :
@@ -183 +183 @@
     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_21745 -> h_arg_decision_colour x_21745
-| Arg_decision_spill x_21746 -> h_arg_decision_spill x_21746
-| Arg_decision_imm x_21747 -> h_arg_decision_imm x_21747
+| Arg_decision_colour x_21824 -> h_arg_decision_colour x_21824
+| Arg_decision_spill x_21825 -> h_arg_decision_spill x_21825
+| Arg_decision_imm x_21826 -> h_arg_decision_imm x_21826
 
 (** val arg_decision_rect_Type2 :
@@ -191 +191 @@
     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_21752 -> h_arg_decision_colour x_21752
-| Arg_decision_spill x_21753 -> h_arg_decision_spill x_21753
-| Arg_decision_imm x_21754 -> h_arg_decision_imm x_21754
+| Arg_decision_colour x_21831 -> h_arg_decision_colour x_21831
+| Arg_decision_spill x_21832 -> h_arg_decision_spill x_21832
+| Arg_decision_imm x_21833 -> h_arg_decision_imm x_21833
 
 (** val arg_decision_rect_Type1 :
@@ -199 +199 @@
     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_21759 -> h_arg_decision_colour x_21759
-| Arg_decision_spill x_21760 -> h_arg_decision_spill x_21760
-| Arg_decision_imm x_21761 -> h_arg_decision_imm x_21761
+| Arg_decision_colour x_21838 -> h_arg_decision_colour x_21838
+| Arg_decision_spill x_21839 -> h_arg_decision_spill x_21839
+| Arg_decision_imm x_21840 -> h_arg_decision_imm x_21840
 
 (** val arg_decision_rect_Type0 :
@@ -207 +207 @@
     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_21766 -> h_arg_decision_colour x_21766
-| Arg_decision_spill x_21767 -> h_arg_decision_spill x_21767
-| Arg_decision_imm x_21768 -> h_arg_decision_imm x_21768
+| Arg_decision_colour x_21845 -> h_arg_decision_colour x_21845
+| Arg_decision_spill x_21846 -> h_arg_decision_spill x_21846
+| Arg_decision_imm x_21847 -> h_arg_decision_imm x_21847
 
 (** val arg_decision_inv_rect_Type4 :

extracted/errorMessages.ml

@@ -74 +74 @@
 | BadCostLabelling
 | RepeatedCostLabel
+| NotTerminated
 
 (** val errorMessage_rect_Type4 :
@@ -82 +83 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type4 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type4 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -152 +153 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
+| NotTerminated -> h_NotTerminated
 
 (** val errorMessage_rect_Type5 :
@@ -160 +162 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type5 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type5 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -230 +232 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
+| NotTerminated -> h_NotTerminated
 
 (** val errorMessage_rect_Type3 :
@@ -238 +241 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type3 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type3 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -308 +311 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
+| NotTerminated -> h_NotTerminated
 
 (** val errorMessage_rect_Type2 :
@@ -316 +320 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type2 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type2 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -386 +390 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
+| NotTerminated -> h_NotTerminated
 
 (** val errorMessage_rect_Type1 :
@@ -394 +399 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type1 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type1 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -464 +469 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
+| NotTerminated -> h_NotTerminated
 
 (** val errorMessage_rect_Type0 :
@@ -472 +478 @@
     'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
     -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
-let rec errorMessage_rect_Type0 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel = function
+    'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1 **)
+let rec errorMessage_rect_Type0 h_MISSING h_EXTERNAL h_AssemblyTooLarge h_Jump_expansion_failed h_ValueIsNotABoolean h_BadCast h_BadlyTypedTerm h_UnknownIdentifier h_BadLvalueTerm h_FailedLoad h_FailedOp h_WrongNumberOfParameters h_FailedStore h_NonsenseState h_ReturnMismatch h_UnknownLabel h_BadFunctionValue h_MainMissing h_UnknownField h_UndeclaredIdentifier h_BadlyTypedAccess h_BadLvalue h_MissingField h_FIXME h_MissingLabel h_ParamGlobalMixup h_DuplicateLabel h_TypeMismatch h_UnknownLocal h_FailedConstant h_BadState h_StoppedMidIO h_UnsupportedOp h_CorruptedPointer h_NotATwoBytesPointer h_ValueNotABoolean h_NotAnInt32Val h_WrongLength h_InitDataStoreFailed h_DuplicateVariable h_MissingId h_IllTypedEvent h_InternalStackFull h_InternalStackEmpty h_BadProgramCounter h_ProgramCounterOutOfCode h_PointNotFound h_LabelNotFound h_MissingSymbol h_BadFunction h_SuccessorNotProvided h_BadPointer h_NoSuccessor h_MissingStackSize h_ExternalMain h_BadRegister h_BadMain h_MissingRegister h_MissingStatement h_BadJumpTable h_BadJumpValue h_FinalState h_EmptyStack h_OutOfBounds h_UnexpectedIO h_TerminatedEarly h_BadCostLabelling h_RepeatedCostLabel h_NotTerminated = function
 | MISSING -> h_MISSING
 | EXTERNAL -> h_EXTERNAL
@@ -542 +548 @@
 | BadCostLabelling -> h_BadCostLabelling
 | RepeatedCostLabel -> h_RepeatedCostLabel
-
+| NotTerminated -> h_NotTerminated
+

extracted/errorMessages.mli

@@ -74 +74 @@
 | BadCostLabelling
 | RepeatedCostLabel
+| NotTerminated
 
 val errorMessage_rect_Type4 :
@@ -82 +83 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 
 val errorMessage_rect_Type5 :
@@ -91 +92 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 
 val errorMessage_rect_Type3 :
@@ -100 +101 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 
 val errorMessage_rect_Type2 :
@@ -109 +110 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 
 val errorMessage_rect_Type1 :
@@ -118 +119 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 
 val errorMessage_rect_Type0 :
@@ -127 +128 @@
   'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1
   -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 ->
-  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
+  'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> 'a1 -> errorMessage -> 'a1
 

extracted/errors.ml

@@ -43 +43 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type4 h_MSG h_CTX = function
-| MSG x_2970 -> h_MSG x_2970
-| CTX (tag, x_2971) -> h_CTX tag x_2971
+| MSG x_2983 -> h_MSG x_2983
+| CTX (tag, x_2984) -> h_CTX tag x_2984
 
 (** val errcode_rect_Type5 :
@@ -50 +50 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type5 h_MSG h_CTX = function
-| MSG x_2975 -> h_MSG x_2975
-| CTX (tag, x_2976) -> h_CTX tag x_2976
+| MSG x_2988 -> h_MSG x_2988
+| CTX (tag, x_2989) -> h_CTX tag x_2989
 
 (** val errcode_rect_Type3 :
@@ -57 +57 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type3 h_MSG h_CTX = function
-| MSG x_2980 -> h_MSG x_2980
-| CTX (tag, x_2981) -> h_CTX tag x_2981
+| MSG x_2993 -> h_MSG x_2993
+| CTX (tag, x_2994) -> h_CTX tag x_2994
 
 (** val errcode_rect_Type2 :
@@ -64 +64 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type2 h_MSG h_CTX = function
-| MSG x_2985 -> h_MSG x_2985
-| CTX (tag, x_2986) -> h_CTX tag x_2986
+| MSG x_2998 -> h_MSG x_2998
+| CTX (tag, x_2999) -> h_CTX tag x_2999
 
 (** val errcode_rect_Type1 :
@@ -71 +71 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type1 h_MSG h_CTX = function
-| MSG x_2990 -> h_MSG x_2990
-| CTX (tag, x_2991) -> h_CTX tag x_2991
+| MSG x_3003 -> h_MSG x_3003
+| CTX (tag, x_3004) -> h_CTX tag x_3004
 
 (** val errcode_rect_Type0 :
@@ -78 +78 @@
     PreIdentifiers.identifier -> 'a1) -> errcode -> 'a1 **)
 let rec errcode_rect_Type0 h_MSG h_CTX = function
-| MSG x_2995 -> h_MSG x_2995
-| CTX (tag, x_2996) -> h_CTX tag x_2996
+| MSG x_3008 -> h_MSG x_3008
+| CTX (tag, x_3009) -> h_CTX tag x_3009
 
 (** 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_3035 -> h_OK x_3035
-| Error x_3036 -> h_Error x_3036
+| OK x_3048 -> h_OK x_3048
+| Error x_3049 -> h_Error x_3049
 
 (** val res_rect_Type5 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type5 h_OK h_Error = function
-| OK x_3040 -> h_OK x_3040
-| Error x_3041 -> h_Error x_3041
+| OK x_3053 -> h_OK x_3053
+| Error x_3054 -> h_Error x_3054
 
 (** val res_rect_Type3 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type3 h_OK h_Error = function
-| OK x_3045 -> h_OK x_3045
-| Error x_3046 -> h_Error x_3046
+| OK x_3058 -> h_OK x_3058
+| Error x_3059 -> h_Error x_3059
 
 (** val res_rect_Type2 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type2 h_OK h_Error = function
-| OK x_3050 -> h_OK x_3050
-| Error x_3051 -> h_Error x_3051
+| OK x_3063 -> h_OK x_3063
+| Error x_3064 -> h_Error x_3064
 
 (** val res_rect_Type1 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type1 h_OK h_Error = function
-| OK x_3055 -> h_OK x_3055
-| Error x_3056 -> h_Error x_3056
+| OK x_3068 -> h_OK x_3068
+| Error x_3069 -> h_Error x_3069
 
 (** val res_rect_Type0 :
     ('a1 -> 'a2) -> (errmsg -> 'a2) -> 'a1 res -> 'a2 **)
 let rec res_rect_Type0 h_OK h_Error = function
-| OK x_3060 -> h_OK x_3060
-| Error x_3061 -> h_Error x_3061
+| OK x_3073 -> h_OK x_3073
+| Error x_3074 -> h_Error x_3074
 
 (** 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_5394) -> h_EVint sz x_5394
+| EVint (sz, x_5407) -> h_EVint sz x_5407
 
 (** val eventval_rect_Type5 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type5 h_EVint = function
-| EVint (sz, x_5397) -> h_EVint sz x_5397
+| EVint (sz, x_5410) -> h_EVint sz x_5410
 
 (** val eventval_rect_Type3 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type3 h_EVint = function
-| EVint (sz, x_5400) -> h_EVint sz x_5400
+| EVint (sz, x_5413) -> h_EVint sz x_5413
 
 (** val eventval_rect_Type2 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type2 h_EVint = function
-| EVint (sz, x_5403) -> h_EVint sz x_5403
+| EVint (sz, x_5416) -> h_EVint sz x_5416
 
 (** val eventval_rect_Type1 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type1 h_EVint = function
-| EVint (sz, x_5406) -> h_EVint sz x_5406
+| EVint (sz, x_5419) -> h_EVint sz x_5419
 
 (** val eventval_rect_Type0 :
     (AST.intsize -> AST.bvint -> 'a1) -> eventval -> 'a1 **)
 let rec eventval_rect_Type0 h_EVint = function
-| EVint (sz, x_5409) -> h_EVint sz x_5409
+| EVint (sz, x_5422) -> h_EVint sz x_5422
 
 (** val eventval_inv_rect_Type4 :
@@ -159 +159 @@
     eventval -> 'a1) -> event -> 'a1 **)
 let rec event_rect_Type4 h_EVcost h_EVextcall = function
-| EVcost x_5434 -> h_EVcost x_5434
+| EVcost x_5447 -> h_EVcost x_5447
 | 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_5438 -> h_EVcost x_5438
+| EVcost x_5451 -> h_EVcost x_5451
 | 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_5442 -> h_EVcost x_5442
+| EVcost x_5455 -> h_EVcost x_5455
 | 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_5446 -> h_EVcost x_5446
+| EVcost x_5459 -> h_EVcost x_5459
 | 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_5450 -> h_EVcost x_5450
+| EVcost x_5463 -> h_EVcost x_5463
 | 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_5454 -> h_EVcost x_5454
+| EVcost x_5467 -> h_EVcost x_5467
 | EVextcall (ev_name, ev_args, ev_res) -> h_EVextcall ev_name ev_args ev_res
 

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_21571 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21571
+let rec property_lattice_rect_Type4 h_mk_property_lattice x_21650 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21650
   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_21573 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21573
+let rec property_lattice_rect_Type5 h_mk_property_lattice x_21652 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21652
   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_21575 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21575
+let rec property_lattice_rect_Type3 h_mk_property_lattice x_21654 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21654
   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_21577 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21577
+let rec property_lattice_rect_Type2 h_mk_property_lattice x_21656 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21656
   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_21579 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21579
+let rec property_lattice_rect_Type1 h_mk_property_lattice x_21658 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21658
   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_21581 =
-  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
-    l_is_maximal = l_is_maximal0 } = x_21581
+let rec property_lattice_rect_Type0 h_mk_property_lattice x_21660 =
+  let { l_bottom = l_bottom0; l_equal = l_equal0; l_included = l_included0;
+    l_is_maximal = l_is_maximal0 } = x_21660
   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 h_mk_fixpoint x_21602 =
-  let fix_lfp = x_21602 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type4 latt h_mk_fixpoint x_21681 =
+  let fix_lfp = x_21681 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type5 :
     property_lattice -> ((equations -> valuation) -> __ -> 'a1) -> fixpoint
     -> 'a1 **)
-let rec fixpoint_rect_Type5 latt h_mk_fixpoint x_21604 =
-  let fix_lfp = x_21604 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type5 latt h_mk_fixpoint x_21683 =
+  let fix_lfp = x_21683 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type3 :
     property_lattice -> ((equations -> valuation) -> __ -> 'a1) -> fixpoint
     -> 'a1 **)
-let rec fixpoint_rect_Type3 latt h_mk_fixpoint x_21606 =
-  let fix_lfp = x_21606 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type3 latt h_mk_fixpoint x_21685 =
+  let fix_lfp = x_21685 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type2 :
     property_lattice -> ((equations -> valuation) -> __ -> 'a1) -> fixpoint
     -> 'a1 **)
-let rec fixpoint_rect_Type2 latt h_mk_fixpoint x_21608 =
-  let fix_lfp = x_21608 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type2 latt h_mk_fixpoint x_21687 =
+  let fix_lfp = x_21687 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type1 :
     property_lattice -> ((equations -> valuation) -> __ -> 'a1) -> fixpoint
     -> 'a1 **)
-let rec fixpoint_rect_Type1 latt h_mk_fixpoint x_21610 =
-  let fix_lfp = x_21610 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type1 latt h_mk_fixpoint x_21689 =
+  let fix_lfp = x_21689 in h_mk_fixpoint fix_lfp __
 
 (** val fixpoint_rect_Type0 :
     property_lattice -> ((equations -> valuation) -> __ -> 'a1) -> fixpoint
     -> 'a1 **)
-let rec fixpoint_rect_Type0 latt h_mk_fixpoint x_21612 =
-  let fix_lfp = x_21612 in h_mk_fixpoint fix_lfp __
+let rec fixpoint_rect_Type0 latt h_mk_fixpoint x_21691 =
+  let fix_lfp = x_21691 in h_mk_fixpoint fix_lfp __
 
 (** val fix_lfp : property_lattice -> fixpoint -> equations -> 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_12992 = function
-| Ointconst (sz, sg, x_12994) -> h_Ointconst sz sg x_12994
-| Oaddrsymbol (x_12996, x_12995) -> h_Oaddrsymbol x_12996 x_12995
-| Oaddrstack x_12997 -> h_Oaddrstack x_12997
+let rec constant_rect_Type4 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13005 = function
+| Ointconst (sz, sg, x_13007) -> h_Ointconst sz sg x_13007
+| Oaddrsymbol (x_13009, x_13008) -> h_Oaddrsymbol x_13009 x_13008
+| Oaddrstack x_13010 -> h_Oaddrstack x_13010
 
 (** 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_13001 = function
-| Ointconst (sz, sg, x_13003) -> h_Ointconst sz sg x_13003
-| Oaddrsymbol (x_13005, x_13004) -> h_Oaddrsymbol x_13005 x_13004
-| Oaddrstack x_13006 -> h_Oaddrstack x_13006
+let rec constant_rect_Type5 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13014 = function
+| Ointconst (sz, sg, x_13016) -> h_Ointconst sz sg x_13016
+| Oaddrsymbol (x_13018, x_13017) -> h_Oaddrsymbol x_13018 x_13017
+| Oaddrstack x_13019 -> h_Oaddrstack x_13019
 
 (** 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_13010 = function
-| Ointconst (sz, sg, x_13012) -> h_Ointconst sz sg x_13012
-| Oaddrsymbol (x_13014, x_13013) -> h_Oaddrsymbol x_13014 x_13013
-| Oaddrstack x_13015 -> h_Oaddrstack x_13015
+let rec constant_rect_Type3 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13023 = function
+| Ointconst (sz, sg, x_13025) -> h_Ointconst sz sg x_13025
+| Oaddrsymbol (x_13027, x_13026) -> h_Oaddrsymbol x_13027 x_13026
+| Oaddrstack x_13028 -> h_Oaddrstack x_13028
 
 (** 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_13019 = function
-| Ointconst (sz, sg, x_13021) -> h_Ointconst sz sg x_13021
-| Oaddrsymbol (x_13023, x_13022) -> h_Oaddrsymbol x_13023 x_13022
-| Oaddrstack x_13024 -> h_Oaddrstack x_13024
+let rec constant_rect_Type2 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13032 = function
+| Ointconst (sz, sg, x_13034) -> h_Ointconst sz sg x_13034
+| Oaddrsymbol (x_13036, x_13035) -> h_Oaddrsymbol x_13036 x_13035
+| Oaddrstack x_13037 -> h_Oaddrstack x_13037
 
 (** 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_13028 = function
-| Ointconst (sz, sg, x_13030) -> h_Ointconst sz sg x_13030
-| Oaddrsymbol (x_13032, x_13031) -> h_Oaddrsymbol x_13032 x_13031
-| Oaddrstack x_13033 -> h_Oaddrstack x_13033
+let rec constant_rect_Type1 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13041 = function
+| Ointconst (sz, sg, x_13043) -> h_Ointconst sz sg x_13043
+| Oaddrsymbol (x_13045, x_13044) -> h_Oaddrsymbol x_13045 x_13044
+| Oaddrstack x_13046 -> h_Oaddrstack x_13046
 
 (** 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_13037 = function
-| Ointconst (sz, sg, x_13039) -> h_Ointconst sz sg x_13039
-| Oaddrsymbol (x_13041, x_13040) -> h_Oaddrsymbol x_13041 x_13040
-| Oaddrstack x_13042 -> h_Oaddrstack x_13042
+let rec constant_rect_Type0 h_Ointconst h_Oaddrsymbol h_Oaddrstack x_13050 = function
+| Ointconst (sz, sg, x_13052) -> h_Ointconst sz sg x_13052
+| Oaddrsymbol (x_13054, x_13053) -> h_Oaddrsymbol x_13054 x_13053
+| Oaddrstack x_13055 -> h_Oaddrstack x_13055
 
 (** 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_13112 x_13111 = function
+let rec unary_operation_rect_Type4 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13125 x_13124 = 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_13123 x_13122 = function
+let rec unary_operation_rect_Type5 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13136 x_13135 = 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_13134 x_13133 = function
+let rec unary_operation_rect_Type3 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13147 x_13146 = 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_13145 x_13144 = function
+let rec unary_operation_rect_Type2 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13158 x_13157 = 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_13156 x_13155 = function
+let rec unary_operation_rect_Type1 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13169 x_13168 = 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_13167 x_13166 = function
+let rec unary_operation_rect_Type0 h_Ocastint h_Onegint h_Onotbool h_Onotint h_Oid h_Optrofint h_Ointofptr x_13180 x_13179 = 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_13272 x_13271 x_13270 = 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_13285 x_13284 x_13283 = 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_13274) -> h_Ocmp sz sg sg' x_13274
-| Ocmpu (sz, sg', x_13275) -> h_Ocmpu sz sg' x_13275
+| Ocmp (sz, sg, sg', x_13287) -> h_Ocmp sz sg sg' x_13287
+| Ocmpu (sz, sg', x_13288) -> h_Ocmpu sz sg' x_13288
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13276) -> h_Ocmpp sg' x_13276
+| Ocmpp (sg', x_13289) -> h_Ocmpp sg' x_13289
 
 (** 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_13299 x_13298 x_13297 = 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_13312 x_13311 x_13310 = 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_13301) -> h_Ocmp sz sg sg' x_13301
-| Ocmpu (sz, sg', x_13302) -> h_Ocmpu sz sg' x_13302
+| Ocmp (sz, sg, sg', x_13314) -> h_Ocmp sz sg sg' x_13314
+| Ocmpu (sz, sg', x_13315) -> h_Ocmpu sz sg' x_13315
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13303) -> h_Ocmpp sg' x_13303
+| Ocmpp (sg', x_13316) -> h_Ocmpp sg' x_13316
 
 (** 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_13326 x_13325 x_13324 = 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_13339 x_13338 x_13337 = 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_13328) -> h_Ocmp sz sg sg' x_13328
-| Ocmpu (sz, sg', x_13329) -> h_Ocmpu sz sg' x_13329
+| Ocmp (sz, sg, sg', x_13341) -> h_Ocmp sz sg sg' x_13341
+| Ocmpu (sz, sg', x_13342) -> h_Ocmpu sz sg' x_13342
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13330) -> h_Ocmpp sg' x_13330
+| Ocmpp (sg', x_13343) -> h_Ocmpp sg' x_13343
 
 (** 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_13353 x_13352 x_13351 = 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_13366 x_13365 x_13364 = 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_13355) -> h_Ocmp sz sg sg' x_13355
-| Ocmpu (sz, sg', x_13356) -> h_Ocmpu sz sg' x_13356
+| Ocmp (sz, sg, sg', x_13368) -> h_Ocmp sz sg sg' x_13368
+| Ocmpu (sz, sg', x_13369) -> h_Ocmpu sz sg' x_13369
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13357) -> h_Ocmpp sg' x_13357
+| Ocmpp (sg', x_13370) -> h_Ocmpp sg' x_13370
 
 (** 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_13380 x_13379 x_13378 = 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_13393 x_13392 x_13391 = 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_13382) -> h_Ocmp sz sg sg' x_13382
-| Ocmpu (sz, sg', x_13383) -> h_Ocmpu sz sg' x_13383
+| Ocmp (sz, sg, sg', x_13395) -> h_Ocmp sz sg sg' x_13395
+| Ocmpu (sz, sg', x_13396) -> h_Ocmpu sz sg' x_13396
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13384) -> h_Ocmpp sg' x_13384
+| Ocmpp (sg', x_13397) -> h_Ocmpp sg' x_13397
 
 (** 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_13407 x_13406 x_13405 = 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_13420 x_13419 x_13418 = 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_13409) -> h_Ocmp sz sg sg' x_13409
-| Ocmpu (sz, sg', x_13410) -> h_Ocmpu sz sg' x_13410
+| Ocmp (sz, sg, sg', x_13422) -> h_Ocmp sz sg sg' x_13422
+| Ocmpu (sz, sg', x_13423) -> h_Ocmpu sz sg' x_13423
 | Oaddpi sz -> h_Oaddpi sz
 | Oaddip sz -> h_Oaddip sz
 | Osubpi sz -> h_Osubpi sz
 | Osubpp sz -> h_Osubpp sz
-| Ocmpp (sg', x_13411) -> h_Ocmpp sg' x_13411
+| Ocmpp (sg', x_13424) -> h_Ocmpp sg' x_13424
 
 (** 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_6386 =
-  let { low = low0; high = high0; contents = contents0 } = x_6386 in
+let rec block_contents_rect_Type4 h_mk_block_contents x_6399 =
+  let { low = low0; high = high0; contents = contents0 } = x_6399 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_6388 =
-  let { low = low0; high = high0; contents = contents0 } = x_6388 in
+let rec block_contents_rect_Type5 h_mk_block_contents x_6401 =
+  let { low = low0; high = high0; contents = contents0 } = x_6401 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_6390 =
-  let { low = low0; high = high0; contents = contents0 } = x_6390 in
+let rec block_contents_rect_Type3 h_mk_block_contents x_6403 =
+  let { low = low0; high = high0; contents = contents0 } = x_6403 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_6392 =
-  let { low = low0; high = high0; contents = contents0 } = x_6392 in
+let rec block_contents_rect_Type2 h_mk_block_contents x_6405 =
+  let { low = low0; high = high0; contents = contents0 } = x_6405 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_6394 =
-  let { low = low0; high = high0; contents = contents0 } = x_6394 in
+let rec block_contents_rect_Type1 h_mk_block_contents x_6407 =
+  let { low = low0; high = high0; contents = contents0 } = x_6407 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_6396 =
-  let { low = low0; high = high0; contents = contents0 } = x_6396 in
+let rec block_contents_rect_Type0 h_mk_block_contents x_6409 =
+  let { low = low0; high = high0; contents = contents0 } = x_6409 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_6412 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6412 in
+let rec mem_rect_Type4 h_mk_mem x_6425 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6425 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_6414 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6414 in
+let rec mem_rect_Type5 h_mk_mem x_6427 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6427 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_6416 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6416 in
+let rec mem_rect_Type3 h_mk_mem x_6429 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6429 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_6418 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6418 in
+let rec mem_rect_Type2 h_mk_mem x_6431 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6431 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_6420 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6420 in
+let rec mem_rect_Type1 h_mk_mem x_6433 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6433 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_6422 =
-  let { blocks = blocks0; nextblock = nextblock0 } = x_6422 in
+let rec mem_rect_Type0 h_mk_mem x_6435 =
+  let { blocks = blocks0; nextblock = nextblock0 } = x_6435 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_6439 =
+let rec genv_t_rect_Type4 h_mk_genv_t x_6452 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6439
+    symbols0 } = x_6452
   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_6441 =
+let rec genv_t_rect_Type5 h_mk_genv_t x_6454 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6441
+    symbols0 } = x_6454
   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_6443 =
+let rec genv_t_rect_Type3 h_mk_genv_t x_6456 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6443
+    symbols0 } = x_6456
   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_6445 =
+let rec genv_t_rect_Type2 h_mk_genv_t x_6458 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6445
+    symbols0 } = x_6458
   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_6447 =
+let rec genv_t_rect_Type1 h_mk_genv_t x_6460 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6447
+    symbols0 } = x_6460
   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_6449 =
+let rec genv_t_rect_Type0 h_mk_genv_t x_6462 =
   let { functions = functions0; nextfunction = nextfunction0; symbols =
-    symbols0 } = x_6449
+    symbols0 } = x_6462
   in
   h_mk_genv_t functions0 nextfunction0 symbols0 __

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_5756 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5756
+let rec io_out_rect_Type4 h_mk_io_out x_5769 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5769
   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_5758 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5758
+let rec io_out_rect_Type5 h_mk_io_out x_5771 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5771
   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_5760 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5760
+let rec io_out_rect_Type3 h_mk_io_out x_5773 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5773
   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_5762 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5762
+let rec io_out_rect_Type2 h_mk_io_out x_5775 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5775
   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_5764 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5764
+let rec io_out_rect_Type1 h_mk_io_out x_5777 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5777
   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_5766 =
-  let { io_function = io_function0; io_args = io_args0; io_in_typ =
-    io_in_typ0 } = x_5766
+let rec io_out_rect_Type0 h_mk_io_out x_5779 =
+  let { io_function = io_function0; io_args = io_args0; io_in_typ =
+    io_in_typ0 } = x_5779
   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_4542) ->
-  h_Interact o x_4542 (fun x_4541 ->
-    iO_rect_Type4 h_Interact h_Value h_Wrong (x_4542 x_4541))
-| Value x_4543 -> h_Value x_4543
-| Wrong x_4544 -> h_Wrong x_4544
+| Interact (o, x_4555) ->
+  h_Interact o x_4555 (fun x_4554 ->
+    iO_rect_Type4 h_Interact h_Value h_Wrong (x_4555 x_4554))
+| Value x_4556 -> h_Value x_4556
+| Wrong x_4557 -> h_Wrong x_4557
 
 (** 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_4558) ->
-  h_Interact o x_4558 (fun x_4557 ->
-    iO_rect_Type3 h_Interact h_Value h_Wrong (x_4558 x_4557))
-| Value x_4559 -> h_Value x_4559
-| Wrong x_4560 -> h_Wrong x_4560
+| Interact (o, x_4571) ->
+  h_Interact o x_4571 (fun x_4570 ->
+    iO_rect_Type3 h_Interact h_Value h_Wrong (x_4571 x_4570))
+| Value x_4572 -> h_Value x_4572
+| Wrong x_4573 -> h_Wrong x_4573
 
 (** 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_4566) ->
-  h_Interact o x_4566 (fun x_4565 ->
-    iO_rect_Type2 h_Interact h_Value h_Wrong (x_4566 x_4565))
-| Value x_4567 -> h_Value x_4567
-| Wrong x_4568 -> h_Wrong x_4568
+| Interact (o, x_4579) ->
+  h_Interact o x_4579 (fun x_4578 ->
+    iO_rect_Type2 h_Interact h_Value h_Wrong (x_4579 x_4578))
+| Value x_4580 -> h_Value x_4580
+| Wrong x_4581 -> h_Wrong x_4581
 
 (** 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_4574) ->
-  h_Interact o x_4574 (fun x_4573 ->
-    iO_rect_Type1 h_Interact h_Value h_Wrong (x_4574 x_4573))
-| Value x_4575 -> h_Value x_4575
-| Wrong x_4576 -> h_Wrong x_4576
+| Interact (o, x_4587) ->
+  h_Interact o x_4587 (fun x_4586 ->
+    iO_rect_Type1 h_Interact h_Value h_Wrong (x_4587 x_4586))
+| Value x_4588 -> h_Value x_4588
+| Wrong x_4589 -> h_Wrong x_4589
 
 (** 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_4582) ->
-  h_Interact o x_4582 (fun x_4581 ->
-    iO_rect_Type0 h_Interact h_Value h_Wrong (x_4582 x_4581))
-| Value x_4583 -> h_Value x_4583
-| Wrong x_4584 -> h_Wrong x_4584
+| Interact (o, x_4595) ->
+  h_Interact o x_4595 (fun x_4594 ->
+    iO_rect_Type0 h_Interact h_Value h_Wrong (x_4595 x_4594))
+| Value x_4596 -> h_Value x_4596
+| Wrong x_4597 -> h_Wrong x_4597
 
 (** 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_3096 =
-  let next_identifier = x_3096 in h_mk_universe next_identifier
+let rec universe_rect_Type4 tag h_mk_universe x_3109 =
+  let next_identifier = x_3109 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_3098 =
-  let next_identifier = x_3098 in h_mk_universe next_identifier
+let rec universe_rect_Type5 tag h_mk_universe x_3111 =
+  let next_identifier = x_3111 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_3100 =
-  let next_identifier = x_3100 in h_mk_universe next_identifier
+let rec universe_rect_Type3 tag h_mk_universe x_3113 =
+  let next_identifier = x_3113 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_3102 =
-  let next_identifier = x_3102 in h_mk_universe next_identifier
+let rec universe_rect_Type2 tag h_mk_universe x_3115 =
+  let next_identifier = x_3115 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_3104 =
-  let next_identifier = x_3104 in h_mk_universe next_identifier
+let rec universe_rect_Type1 tag h_mk_universe x_3117 =
+  let next_identifier = x_3117 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_3106 =
-  let next_identifier = x_3106 in h_mk_universe next_identifier
+let rec universe_rect_Type0 tag h_mk_universe x_3119 =
+  let next_identifier = x_3119 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_3268 =
-  let x_3269 = x_3268 in h_an_id_map x_3269
+let rec identifier_map_rect_Type4 tag h_an_id_map x_3281 =
+  let x_3282 = x_3281 in h_an_id_map x_3282
 
 (** 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_3271 =
-  let x_3272 = x_3271 in h_an_id_map x_3272
+let rec identifier_map_rect_Type5 tag h_an_id_map x_3284 =
+  let x_3285 = x_3284 in h_an_id_map x_3285
 
 (** 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_3274 =
-  let x_3275 = x_3274 in h_an_id_map x_3275
+let rec identifier_map_rect_Type3 tag h_an_id_map x_3287 =
+  let x_3288 = x_3287 in h_an_id_map x_3288
 
 (** 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_3277 =
-  let x_3278 = x_3277 in h_an_id_map x_3278
+let rec identifier_map_rect_Type2 tag h_an_id_map x_3290 =
+  let x_3291 = x_3290 in h_an_id_map x_3291
 
 (** 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_3280 =
-  let x_3281 = x_3280 in h_an_id_map x_3281
+let rec identifier_map_rect_Type1 tag h_an_id_map x_3293 =
+  let x_3294 = x_3293 in h_an_id_map x_3294
 
 (** 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_3283 =
-  let x_3284 = x_3283 in h_an_id_map x_3284
+let rec identifier_map_rect_Type0 tag h_an_id_map x_3296 =
+  let x_3297 = x_3296 in h_an_id_map x_3297
 
 (** val identifier_map_inv_rect_Type4 :

extracted/initialisation.ml

@@ -157 +157 @@
     Types.sig0 **)
 let init_var id r init =
-  (List.foldr (fun datum os ->
+  (Util.foldl (fun os datum ->
     let { Types.fst = off; Types.snd = s } = os in
     { Types.fst = (Nat.plus off (Globalenvs.size_init_data datum));

extracted/interference.ml

@@ -122 +122 @@
     (Nat.nat -> 'a1) -> (I8051.register -> 'a1) -> decision -> 'a1 **)
 let rec decision_rect_Type4 h_decision_spill h_decision_colour = function
-| Decision_spill x_21633 -> h_decision_spill x_21633
-| Decision_colour x_21634 -> h_decision_colour x_21634
+| Decision_spill x_21712 -> h_decision_spill x_21712
+| Decision_colour x_21713 -> h_decision_colour x_21713
 
 (** 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_21638 -> h_decision_spill x_21638
-| Decision_colour x_21639 -> h_decision_colour x_21639
+| Decision_spill x_21717 -> h_decision_spill x_21717
+| Decision_colour x_21718 -> h_decision_colour x_21718
 
 (** 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_21643 -> h_decision_spill x_21643
-| Decision_colour x_21644 -> h_decision_colour x_21644
+| Decision_spill x_21722 -> h_decision_spill x_21722
+| Decision_colour x_21723 -> h_decision_colour x_21723
 
 (** 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_21648 -> h_decision_spill x_21648
-| Decision_colour x_21649 -> h_decision_colour x_21649
+| Decision_spill x_21727 -> h_decision_spill x_21727
+| Decision_colour x_21728 -> h_decision_colour x_21728
 
 (** 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_21653 -> h_decision_spill x_21653
-| Decision_colour x_21654 -> h_decision_colour x_21654
+| Decision_spill x_21732 -> h_decision_spill x_21732
+| Decision_colour x_21733 -> h_decision_colour x_21733
 
 (** 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_21658 -> h_decision_spill x_21658
-| Decision_colour x_21659 -> h_decision_colour x_21659
+| Decision_spill x_21737 -> h_decision_spill x_21737
+| Decision_colour x_21738 -> h_decision_colour x_21738
 
 (** val decision_inv_rect_Type4 :
@@ -205 +205 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type4 after h_mk_coloured_graph x_21694 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21694 in
+let rec coloured_graph_rect_Type4 after h_mk_coloured_graph x_21773 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21773 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -212 +212 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type5 after h_mk_coloured_graph x_21696 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21696 in
+let rec coloured_graph_rect_Type5 after h_mk_coloured_graph x_21775 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21775 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 
@@ -219 +219 @@
     Fixpoints.valuation -> ((Liveness.vertex -> decision) -> Nat.nat -> __ ->
     __ -> 'a1) -> coloured_graph -> 'a1 **)
-let rec coloured_graph_rect_Type3 after h_mk_coloured_graph x_21698 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21698 in
+let rec coloured_graph_rect_Type3 after h_mk_coloured_graph x_21777 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21777 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_Type2 after h_mk_coloured_graph x_21700 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21700 in
+let rec coloured_graph_rect_Type2 after h_mk_coloured_graph x_21779 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21779 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_Type1 after h_mk_coloured_graph x_21702 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21702 in
+let rec coloured_graph_rect_Type1 after h_mk_coloured_graph x_21781 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21781 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_Type0 after h_mk_coloured_graph x_21704 =
-  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21704 in
+let rec coloured_graph_rect_Type0 after h_mk_coloured_graph x_21783 =
+  let { colouring = colouring0; spilled_no = spilled_no0 } = x_21783 in
   h_mk_coloured_graph colouring0 spilled_no0 __ __
 

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_19531 -> h_Reg x_19531
-| Imm x_19532 -> h_Imm x_19532
+| Reg x_19544 -> h_Reg x_19544
+| Imm x_19545 -> h_Imm x_19545
 
 (** val argument_rect_Type5 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type5 h_Reg h_Imm = function
-| Reg x_19536 -> h_Reg x_19536
-| Imm x_19537 -> h_Imm x_19537
+| Reg x_19549 -> h_Reg x_19549
+| Imm x_19550 -> h_Imm x_19550
 
 (** val argument_rect_Type3 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type3 h_Reg h_Imm = function
-| Reg x_19541 -> h_Reg x_19541
-| Imm x_19542 -> h_Imm x_19542
+| Reg x_19554 -> h_Reg x_19554
+| Imm x_19555 -> h_Imm x_19555
 
 (** val argument_rect_Type2 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type2 h_Reg h_Imm = function
-| Reg x_19546 -> h_Reg x_19546
-| Imm x_19547 -> h_Imm x_19547
+| Reg x_19559 -> h_Reg x_19559
+| Imm x_19560 -> h_Imm x_19560
 
 (** val argument_rect_Type1 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type1 h_Reg h_Imm = function
-| Reg x_19551 -> h_Reg x_19551
-| Imm x_19552 -> h_Imm x_19552
+| Reg x_19564 -> h_Reg x_19564
+| Imm x_19565 -> h_Imm x_19565
 
 (** val argument_rect_Type0 :
     ('a1 -> 'a2) -> (BitVector.byte -> 'a2) -> 'a1 argument -> 'a2 **)
 let rec argument_rect_Type0 h_Reg h_Imm = function
-| Reg x_19556 -> h_Reg x_19556
-| Imm x_19557 -> h_Imm x_19557
+| Reg x_19569 -> h_Reg x_19569
+| Imm x_19570 -> h_Imm x_19570
 
 (** 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_19592 =
+let rec unserialized_params_rect_Type4 h_mk_unserialized_params x_19605 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_19592
+    x_19605
   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_19594 =
+let rec unserialized_params_rect_Type5 h_mk_unserialized_params x_19607 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_19594
+    x_19607
   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_19596 =
+let rec unserialized_params_rect_Type3 h_mk_unserialized_params x_19609 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_19596
+    x_19609
   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_19598 =
+let rec unserialized_params_rect_Type2 h_mk_unserialized_params x_19611 =
   let { ext_seq_labels = ext_seq_labels0; has_tailcalls = has_tailcalls0 } =
-    x_19