text: // Lean compiler output
  // Module: Lean.Util.CollectFVars
  // Imports: Init Lean.Expr
  #include <lean/lean.h>
  #if defined(__clang__)
  #pragma clang diagnostic ignored "-Wunused-parameter"
  #pragma clang diagnostic ignored "-Wunused-label"
  #elif defined(__GNUC__) && !defined(__CLANG__)
  #pragma GCC diagnostic ignored "-Wunused-parameter"
  #pragma GCC diagnostic ignored "-Wunused-label"
  #pragma GCC diagnostic ignored "-Wunused-but-set-variable"
  #endif
  #ifdef __cplusplus
  extern "C" {
  #endif
  lean_object* lean_array_uget(lean_object*, size_t);
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_main(lean_object*, lean_object*);
  lean_object* lean_array_uset(lean_object*, size_t, lean_object*);
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_State_fvarSet___default;
  LEAN_EXPORT lean_object* l_Lean_collectFVars(lean_object*, lean_object*);
  lean_object* lean_array_get_size(lean_object*);
  LEAN_EXPORT lean_object* l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(lean_object*, lean_object*, lean_object*);
  lean_object* l_Std_mkHashSetImp___rarg(lean_object*);
  LEAN_EXPORT lean_object* l_List_foldl___at_Lean_CollectFVars_visit___spec__6(lean_object*, lean_object*);
  lean_object* lean_nat_add(lean_object*, lean_object*);
  size_t lean_uint64_to_usize(uint64_t);
  LEAN_EXPORT lean_object* l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1___boxed(lean_object*, lean_object*);
  lean_object* l_Std_RBNode_setBlack___rarg(lean_object*);
  lean_object* lean_array_fget(lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Std_RBNode_insert___at_Lean_CollectFVars_main___spec__1(lean_object*, lean_object*, lean_object*);
  lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
  uint8_t l_Lean_Name_quickCmp(lean_object*, lean_object*);
  LEAN_EXPORT uint8_t l_List_elem___at_Lean_CollectFVars_visit___spec__2(lean_object*, lean_object*);
  uint64_t l_Lean_Expr_hash(lean_object*);
  LEAN_EXPORT lean_object* l_List_elem___at_Lean_CollectFVars_visit___spec__2___boxed(lean_object*, lean_object*);
  size_t lean_usize_modn(size_t, lean_object*);
  static lean_object* l_Lean_CollectFVars_instInhabitedState___closed__2;
  LEAN_EXPORT lean_object* l_List_replace___at_Lean_CollectFVars_visit___spec__7(lean_object*, lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_visit(lean_object*, lean_object*);
  uint8_t lean_expr_eqv(lean_object*, lean_object*);
  uint8_t lean_nat_dec_le(lean_object*, lean_object*);
  uint8_t l_Std_RBNode_isRed___rarg(lean_object*);
  LEAN_EXPORT lean_object* l_Std_HashSetImp_expand___at_Lean_CollectFVars_visit___spec__4(lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_State_visitedExpr___default;
  lean_object* lean_nat_mul(lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_instInhabitedState;
  LEAN_EXPORT lean_object* l_Std_HashSetImp_insert___at_Lean_CollectFVars_visit___spec__3(lean_object*, lean_object*);
  lean_object* lean_mk_array(lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Std_HashSetImp_moveEntries___at_Lean_CollectFVars_visit___spec__5(lean_object*, lean_object*, lean_object*);
  LEAN_EXPORT uint8_t l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1(lean_object*, lean_object*);
  static lean_object* l_Lean_CollectFVars_instInhabitedState___closed__1;
  uint8_t l_Lean_Expr_hasFVar(lean_object*);
  LEAN_EXPORT lean_object* l_List_replace___at_Lean_CollectFVars_visit___spec__7___boxed(lean_object*, lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Std_mkHashSet___at_Lean_CollectFVars_State_visitedExpr___default___spec__1(lean_object*);
  uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
  LEAN_EXPORT lean_object* l_Std_mkHashSet___at_Lean_CollectFVars_State_visitedExpr___default___spec__1(lean_object* x_1) {
  _start:
  {
  lean_object* x_2; 
  x_2 = l_Std_mkHashSetImp___rarg(x_1);
  return x_2;
  }
  }
  static lean_object* _init_l_Lean_CollectFVars_State_visitedExpr___default() {
  _start:
  {
  lean_object* x_1; lean_object* x_2; 
  x_1 = lean_unsigned_to_nat(8u);
  x_2 = l_Std_mkHashSetImp___rarg(x_1);
  return x_2;
  }
  }
  static lean_object* _init_l_Lean_CollectFVars_State_fvarSet___default() {
  _start:
  {
  lean_object* x_1; 
  x_1 = lean_box(0);
  return x_1;
  }
  }
  static lean_object* _init_l_Lean_CollectFVars_instInhabitedState___closed__1() {
  _start:
  {
  lean_object* x_1; lean_object* x_2; 
  x_1 = lean_unsigned_to_nat(8u);
  x_2 = l_Std_mkHashSetImp___rarg(x_1);
  return x_2;
  }
  }
  static lean_object* _init_l_Lean_CollectFVars_instInhabitedState___closed__2() {
  _start:
  {
  lean_object* x_1; lean_object* x_2; lean_object* x_3; 
  x_1 = lean_box(0);
  x_2 = l_Lean_CollectFVars_instInhabitedState___closed__1;
  x_3 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_3, 0, x_2);
  lean_ctor_set(x_3, 1, x_1);
  return x_3;
  }
  }
  static lean_object* _init_l_Lean_CollectFVars_instInhabitedState() {
  _start:
  {
  lean_object* x_1; 
  x_1 = l_Lean_CollectFVars_instInhabitedState___closed__2;
  return x_1;
  }
  }
  LEAN_EXPORT uint8_t l_List_elem___at_Lean_CollectFVars_visit___spec__2(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  if (lean_obj_tag(x_2) == 0)
  {
  uint8_t x_3; 
  x_3 = 0;
  return x_3;
  }
  else
  {
  lean_object* x_4; lean_object* x_5; uint8_t x_6; 
  x_4 = lean_ctor_get(x_2, 0);
  x_5 = lean_ctor_get(x_2, 1);
  x_6 = lean_expr_eqv(x_1, x_4);
  if (x_6 == 0)
  {
  x_2 = x_5;
  goto _start;
  }
  else
  {
  uint8_t x_8; 
  x_8 = 1;
  return x_8;
  }
  }
  }
  }
  LEAN_EXPORT uint8_t l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  lean_object* x_3; lean_object* x_4; uint64_t x_5; size_t x_6; size_t x_7; lean_object* x_8; uint8_t x_9; 
  x_3 = lean_ctor_get(x_1, 1);
  lean_inc(x_3);
  lean_dec(x_1);
  x_4 = lean_array_get_size(x_3);
  x_5 = l_Lean_Expr_hash(x_2);
  x_6 = lean_uint64_to_usize(x_5);
  x_7 = lean_usize_modn(x_6, x_4);
  lean_dec(x_4);
  x_8 = lean_array_uget(x_3, x_7);
  lean_dec(x_3);
  x_9 = l_List_elem___at_Lean_CollectFVars_visit___spec__2(x_2, x_8);
  lean_dec(x_8);
  lean_dec(x_2);
  return x_9;
  }
  }
  LEAN_EXPORT lean_object* l_List_foldl___at_Lean_CollectFVars_visit___spec__6(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  if (lean_obj_tag(x_2) == 0)
  {
  return x_1;
  }
  else
  {
  uint8_t x_3; 
  x_3 = !lean_is_exclusive(x_2);
  if (x_3 == 0)
  {
  lean_object* x_4; lean_object* x_5; lean_object* x_6; uint64_t x_7; size_t x_8; size_t x_9; lean_object* x_10; lean_object* x_11; 
  x_4 = lean_ctor_get(x_2, 0);
  x_5 = lean_ctor_get(x_2, 1);
  x_6 = lean_array_get_size(x_1);
  x_7 = l_Lean_Expr_hash(x_4);
  x_8 = lean_uint64_to_usize(x_7);
  x_9 = lean_usize_modn(x_8, x_6);
  lean_dec(x_6);
  x_10 = lean_array_uget(x_1, x_9);
  lean_ctor_set(x_2, 1, x_10);
  x_11 = lean_array_uset(x_1, x_9, x_2);
  x_1 = x_11;
  x_2 = x_5;
  goto _start;
  }
  else
  {
  lean_object* x_13; lean_object* x_14; lean_object* x_15; uint64_t x_16; size_t x_17; size_t x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; 
  x_13 = lean_ctor_get(x_2, 0);
  x_14 = lean_ctor_get(x_2, 1);
  lean_inc(x_14);
  lean_inc(x_13);
  lean_dec(x_2);
  x_15 = lean_array_get_size(x_1);
  x_16 = l_Lean_Expr_hash(x_13);
  x_17 = lean_uint64_to_usize(x_16);
  x_18 = lean_usize_modn(x_17, x_15);
  lean_dec(x_15);
  x_19 = lean_array_uget(x_1, x_18);
  x_20 = lean_alloc_ctor(1, 2, 0);
  lean_ctor_set(x_20, 0, x_13);
  lean_ctor_set(x_20, 1, x_19);
  x_21 = lean_array_uset(x_1, x_18, x_20);
  x_1 = x_21;
  x_2 = x_14;
  goto _start;
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_Std_HashSetImp_moveEntries___at_Lean_CollectFVars_visit___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
  _start:
  {
  lean_object* x_4; uint8_t x_5; 
  x_4 = lean_array_get_size(x_2);
  x_5 = lean_nat_dec_lt(x_1, x_4);
  lean_dec(x_4);
  if (x_5 == 0)
  {
  lean_dec(x_2);
  lean_dec(x_1);
  return x_3;
  }
  else
  {
  lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; 
  x_6 = lean_array_fget(x_2, x_1);
  x_7 = lean_box(0);
  x_8 = lean_array_fset(x_2, x_1, x_7);
  x_9 = l_List_foldl___at_Lean_CollectFVars_visit___spec__6(x_3, x_6);
  x_10 = lean_unsigned_to_nat(1u);
  x_11 = lean_nat_add(x_1, x_10);
  lean_dec(x_1);
  x_1 = x_11;
  x_2 = x_8;
  x_3 = x_9;
  goto _start;
  }
  }
  }
  LEAN_EXPORT lean_object* l_Std_HashSetImp_expand___at_Lean_CollectFVars_visit___spec__4(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; 
  x_3 = lean_array_get_size(x_2);
  x_4 = lean_unsigned_to_nat(2u);
  x_5 = lean_nat_mul(x_3, x_4);
  lean_dec(x_3);
  x_6 = lean_box(0);
  x_7 = lean_mk_array(x_5, x_6);
  x_8 = lean_unsigned_to_nat(0u);
  x_9 = l_Std_HashSetImp_moveEntries___at_Lean_CollectFVars_visit___spec__5(x_8, x_2, x_7);
  x_10 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_10, 0, x_1);
  lean_ctor_set(x_10, 1, x_9);
  return x_10;
  }
  }
  LEAN_EXPORT lean_object* l_List_replace___at_Lean_CollectFVars_visit___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
  _start:
  {
  if (lean_obj_tag(x_1) == 0)
  {
  lean_object* x_4; 
  lean_dec(x_3);
  x_4 = lean_box(0);
  return x_4;
  }
  else
  {
  uint8_t x_5; 
  x_5 = !lean_is_exclusive(x_1);
  if (x_5 == 0)
  {
  lean_object* x_6; lean_object* x_7; uint8_t x_8; 
  x_6 = lean_ctor_get(x_1, 0);
  x_7 = lean_ctor_get(x_1, 1);
  x_8 = lean_expr_eqv(x_6, x_2);
  if (x_8 == 0)
  {
  lean_object* x_9; 
  x_9 = l_List_replace___at_Lean_CollectFVars_visit___spec__7(x_7, x_2, x_3);
  lean_ctor_set(x_1, 1, x_9);
  return x_1;
  }
  else
  {
  lean_dec(x_6);
  lean_ctor_set(x_1, 0, x_3);
  return x_1;
  }
  }
  else
  {
  lean_object* x_10; lean_object* x_11; uint8_t x_12; 
  x_10 = lean_ctor_get(x_1, 0);
  x_11 = lean_ctor_get(x_1, 1);
  lean_inc(x_11);
  lean_inc(x_10);
  lean_dec(x_1);
  x_12 = lean_expr_eqv(x_10, x_2);
  if (x_12 == 0)
  {
  lean_object* x_13; lean_object* x_14; 
  x_13 = l_List_replace___at_Lean_CollectFVars_visit___spec__7(x_11, x_2, x_3);
  x_14 = lean_alloc_ctor(1, 2, 0);
  lean_ctor_set(x_14, 0, x_10);
  lean_ctor_set(x_14, 1, x_13);
  return x_14;
  }
  else
  {
  lean_object* x_15; 
  lean_dec(x_10);
  x_15 = lean_alloc_ctor(1, 2, 0);
  lean_ctor_set(x_15, 0, x_3);
  lean_ctor_set(x_15, 1, x_11);
  return x_15;
  }
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_Std_HashSetImp_insert___at_Lean_CollectFVars_visit___spec__3(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  uint8_t x_3; 
  x_3 = !lean_is_exclusive(x_1);
  if (x_3 == 0)
  {
  lean_object* x_4; lean_object* x_5; lean_object* x_6; uint64_t x_7; size_t x_8; size_t x_9; lean_object* x_10; uint8_t x_11; 
  x_4 = lean_ctor_get(x_1, 0);
  x_5 = lean_ctor_get(x_1, 1);
  x_6 = lean_array_get_size(x_5);
  x_7 = l_Lean_Expr_hash(x_2);
  x_8 = lean_uint64_to_usize(x_7);
  x_9 = lean_usize_modn(x_8, x_6);
  x_10 = lean_array_uget(x_5, x_9);
  x_11 = l_List_elem___at_Lean_CollectFVars_visit___spec__2(x_2, x_10);
  if (x_11 == 0)
  {
  lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; 
  x_12 = lean_unsigned_to_nat(1u);
  x_13 = lean_nat_add(x_4, x_12);
  lean_dec(x_4);
  x_14 = lean_alloc_ctor(1, 2, 0);
  lean_ctor_set(x_14, 0, x_2);
  lean_ctor_set(x_14, 1, x_10);
  x_15 = lean_array_uset(x_5, x_9, x_14);
  x_16 = lean_nat_dec_le(x_13, x_6);
  lean_dec(x_6);
  if (x_16 == 0)
  {
  lean_object* x_17; 
  lean_free_object(x_1);
  x_17 = l_Std_HashSetImp_expand___at_Lean_CollectFVars_visit___spec__4(x_13, x_15);
  return x_17;
  }
  else
  {
  lean_ctor_set(x_1, 1, x_15);
  lean_ctor_set(x_1, 0, x_13);
  return x_1;
  }
  }
  else
  {
  lean_object* x_18; lean_object* x_19; 
  lean_dec(x_6);
  lean_inc(x_2);
  x_18 = l_List_replace___at_Lean_CollectFVars_visit___spec__7(x_10, x_2, x_2);
  lean_dec(x_2);
  x_19 = lean_array_uset(x_5, x_9, x_18);
  lean_ctor_set(x_1, 1, x_19);
  return x_1;
  }
  }
  else
  {
  lean_object* x_20; lean_object* x_21; lean_object* x_22; uint64_t x_23; size_t x_24; size_t x_25; lean_object* x_26; uint8_t x_27; 
  x_20 = lean_ctor_get(x_1, 0);
  x_21 = lean_ctor_get(x_1, 1);
  lean_inc(x_21);
  lean_inc(x_20);
  lean_dec(x_1);
  x_22 = lean_array_get_size(x_21);
  x_23 = l_Lean_Expr_hash(x_2);
  x_24 = lean_uint64_to_usize(x_23);
  x_25 = lean_usize_modn(x_24, x_22);
  x_26 = lean_array_uget(x_21, x_25);
  x_27 = l_List_elem___at_Lean_CollectFVars_visit___spec__2(x_2, x_26);
  if (x_27 == 0)
  {
  lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; 
  x_28 = lean_unsigned_to_nat(1u);
  x_29 = lean_nat_add(x_20, x_28);
  lean_dec(x_20);
  x_30 = lean_alloc_ctor(1, 2, 0);
  lean_ctor_set(x_30, 0, x_2);
  lean_ctor_set(x_30, 1, x_26);
  x_31 = lean_array_uset(x_21, x_25, x_30);
  x_32 = lean_nat_dec_le(x_29, x_22);
  lean_dec(x_22);
  if (x_32 == 0)
  {
  lean_object* x_33; 
  x_33 = l_Std_HashSetImp_expand___at_Lean_CollectFVars_visit___spec__4(x_29, x_31);
  return x_33;
  }
  else
  {
  lean_object* x_34; 
  x_34 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_34, 0, x_29);
  lean_ctor_set(x_34, 1, x_31);
  return x_34;
  }
  }
  else
  {
  lean_object* x_35; lean_object* x_36; lean_object* x_37; 
  lean_dec(x_22);
  lean_inc(x_2);
  x_35 = l_List_replace___at_Lean_CollectFVars_visit___spec__7(x_26, x_2, x_2);
  lean_dec(x_2);
  x_36 = lean_array_uset(x_21, x_25, x_35);
  x_37 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_37, 0, x_20);
  lean_ctor_set(x_37, 1, x_36);
  return x_37;
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_visit(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  uint8_t x_3; 
  x_3 = l_Lean_Expr_hasFVar(x_1);
  if (x_3 == 0)
  {
  lean_dec(x_1);
  return x_2;
  }
  else
  {
  lean_object* x_4; lean_object* x_5; uint8_t x_6; 
  x_4 = lean_ctor_get(x_2, 0);
  lean_inc(x_4);
  x_5 = lean_ctor_get(x_2, 1);
  lean_inc(x_5);
  lean_inc(x_1);
  lean_inc(x_4);
  x_6 = l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1(x_4, x_1);
  if (x_6 == 0)
  {
  uint8_t x_7; 
  x_7 = !lean_is_exclusive(x_2);
  if (x_7 == 0)
  {
  lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; 
  x_8 = lean_ctor_get(x_2, 1);
  lean_dec(x_8);
  x_9 = lean_ctor_get(x_2, 0);
  lean_dec(x_9);
  lean_inc(x_1);
  x_10 = l_Std_HashSetImp_insert___at_Lean_CollectFVars_visit___spec__3(x_4, x_1);
  lean_ctor_set(x_2, 0, x_10);
  x_11 = l_Lean_CollectFVars_main(x_1, x_2);
  return x_11;
  }
  else
  {
  lean_object* x_12; lean_object* x_13; lean_object* x_14; 
  lean_dec(x_2);
  lean_inc(x_1);
  x_12 = l_Std_HashSetImp_insert___at_Lean_CollectFVars_visit___spec__3(x_4, x_1);
  x_13 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_13, 0, x_12);
  lean_ctor_set(x_13, 1, x_5);
  x_14 = l_Lean_CollectFVars_main(x_1, x_13);
  return x_14;
  }
  }
  else
  {
  lean_dec(x_5);
  lean_dec(x_4);
  lean_dec(x_1);
  return x_2;
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
  _start:
  {
  if (lean_obj_tag(x_1) == 0)
  {
  lean_object* x_4; uint8_t x_5; lean_object* x_6; 
  x_4 = lean_box(0);
  x_5 = 0;
  x_6 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_6, 0, x_4);
  lean_ctor_set(x_6, 1, x_2);
  lean_ctor_set(x_6, 2, x_3);
  lean_ctor_set(x_6, 3, x_4);
  lean_ctor_set_uint8(x_6, sizeof(void*)*4, x_5);
  return x_6;
  }
  else
  {
  uint8_t x_7; 
  x_7 = lean_ctor_get_uint8(x_1, sizeof(void*)*4);
  if (x_7 == 0)
  {
  uint8_t x_8; 
  x_8 = !lean_is_exclusive(x_1);
  if (x_8 == 0)
  {
  lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; 
  x_9 = lean_ctor_get(x_1, 0);
  x_10 = lean_ctor_get(x_1, 1);
  x_11 = lean_ctor_get(x_1, 2);
  x_12 = lean_ctor_get(x_1, 3);
  x_13 = l_Lean_Name_quickCmp(x_2, x_10);
  switch (x_13) {
  case 0:
  {
  lean_object* x_14; uint8_t x_15; 
  x_14 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_9, x_2, x_3);
  x_15 = 0;
  lean_ctor_set(x_1, 0, x_14);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_15);
  return x_1;
  }
  case 1:
  {
  uint8_t x_16; 
  lean_dec(x_11);
  lean_dec(x_10);
  x_16 = 0;
  lean_ctor_set(x_1, 2, x_3);
  lean_ctor_set(x_1, 1, x_2);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_16);
  return x_1;
  }
  default: 
  {
  lean_object* x_17; uint8_t x_18; 
  x_17 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_12, x_2, x_3);
  x_18 = 0;
  lean_ctor_set(x_1, 3, x_17);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_18);
  return x_1;
  }
  }
  }
  else
  {
  lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; 
  x_19 = lean_ctor_get(x_1, 0);
  x_20 = lean_ctor_get(x_1, 1);
  x_21 = lean_ctor_get(x_1, 2);
  x_22 = lean_ctor_get(x_1, 3);
  lean_inc(x_22);
  lean_inc(x_21);
  lean_inc(x_20);
  lean_inc(x_19);
  lean_dec(x_1);
  x_23 = l_Lean_Name_quickCmp(x_2, x_20);
  switch (x_23) {
  case 0:
  {
  lean_object* x_24; uint8_t x_25; lean_object* x_26; 
  x_24 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_19, x_2, x_3);
  x_25 = 0;
  x_26 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_26, 0, x_24);
  lean_ctor_set(x_26, 1, x_20);
  lean_ctor_set(x_26, 2, x_21);
  lean_ctor_set(x_26, 3, x_22);
  lean_ctor_set_uint8(x_26, sizeof(void*)*4, x_25);
  return x_26;
  }
  case 1:
  {
  uint8_t x_27; lean_object* x_28; 
  lean_dec(x_21);
  lean_dec(x_20);
  x_27 = 0;
  x_28 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_28, 0, x_19);
  lean_ctor_set(x_28, 1, x_2);
  lean_ctor_set(x_28, 2, x_3);
  lean_ctor_set(x_28, 3, x_22);
  lean_ctor_set_uint8(x_28, sizeof(void*)*4, x_27);
  return x_28;
  }
  default: 
  {
  lean_object* x_29; uint8_t x_30; lean_object* x_31; 
  x_29 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_22, x_2, x_3);
  x_30 = 0;
  x_31 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_31, 0, x_19);
  lean_ctor_set(x_31, 1, x_20);
  lean_ctor_set(x_31, 2, x_21);
  lean_ctor_set(x_31, 3, x_29);
  lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_30);
  return x_31;
  }
  }
  }
  }
  else
  {
  uint8_t x_32; 
  x_32 = !lean_is_exclusive(x_1);
  if (x_32 == 0)
  {
  lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; 
  x_33 = lean_ctor_get(x_1, 0);
  x_34 = lean_ctor_get(x_1, 1);
  x_35 = lean_ctor_get(x_1, 2);
  x_36 = lean_ctor_get(x_1, 3);
  x_37 = l_Lean_Name_quickCmp(x_2, x_34);
  switch (x_37) {
  case 0:
  {
  uint8_t x_38; 
  x_38 = l_Std_RBNode_isRed___rarg(x_33);
  if (x_38 == 0)
  {
  lean_object* x_39; uint8_t x_40; 
  x_39 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_33, x_2, x_3);
  x_40 = 1;
  lean_ctor_set(x_1, 0, x_39);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_40);
  return x_1;
  }
  else
  {
  lean_object* x_41; lean_object* x_42; 
  x_41 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_33, x_2, x_3);
  x_42 = lean_ctor_get(x_41, 0);
  lean_inc(x_42);
  if (lean_obj_tag(x_42) == 0)
  {
  lean_object* x_43; 
  x_43 = lean_ctor_get(x_41, 3);
  lean_inc(x_43);
  if (lean_obj_tag(x_43) == 0)
  {
  uint8_t x_44; 
  x_44 = !lean_is_exclusive(x_41);
  if (x_44 == 0)
  {
  lean_object* x_45; lean_object* x_46; uint8_t x_47; uint8_t x_48; 
  x_45 = lean_ctor_get(x_41, 3);
  lean_dec(x_45);
  x_46 = lean_ctor_get(x_41, 0);
  lean_dec(x_46);
  x_47 = 0;
  lean_ctor_set(x_41, 0, x_43);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_47);
  x_48 = 1;
  lean_ctor_set(x_1, 0, x_41);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_48);
  return x_1;
  }
  else
  {
  lean_object* x_49; lean_object* x_50; uint8_t x_51; lean_object* x_52; uint8_t x_53; 
  x_49 = lean_ctor_get(x_41, 1);
  x_50 = lean_ctor_get(x_41, 2);
  lean_inc(x_50);
  lean_inc(x_49);
  lean_dec(x_41);
  x_51 = 0;
  x_52 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_52, 0, x_43);
  lean_ctor_set(x_52, 1, x_49);
  lean_ctor_set(x_52, 2, x_50);
  lean_ctor_set(x_52, 3, x_43);
  lean_ctor_set_uint8(x_52, sizeof(void*)*4, x_51);
  x_53 = 1;
  lean_ctor_set(x_1, 0, x_52);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_53);
  return x_1;
  }
  }
  else
  {
  uint8_t x_54; 
  x_54 = lean_ctor_get_uint8(x_43, sizeof(void*)*4);
  if (x_54 == 0)
  {
  uint8_t x_55; 
  x_55 = !lean_is_exclusive(x_41);
  if (x_55 == 0)
  {
  lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; 
  x_56 = lean_ctor_get(x_41, 1);
  x_57 = lean_ctor_get(x_41, 2);
  x_58 = lean_ctor_get(x_41, 3);
  lean_dec(x_58);
  x_59 = lean_ctor_get(x_41, 0);
  lean_dec(x_59);
  x_60 = !lean_is_exclusive(x_43);
  if (x_60 == 0)
  {
  lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; uint8_t x_66; 
  x_61 = lean_ctor_get(x_43, 0);
  x_62 = lean_ctor_get(x_43, 1);
  x_63 = lean_ctor_get(x_43, 2);
  x_64 = lean_ctor_get(x_43, 3);
  x_65 = 1;
  lean_ctor_set(x_43, 3, x_61);
  lean_ctor_set(x_43, 2, x_57);
  lean_ctor_set(x_43, 1, x_56);
  lean_ctor_set(x_43, 0, x_42);
  lean_ctor_set_uint8(x_43, sizeof(void*)*4, x_65);
  lean_ctor_set(x_41, 3, x_36);
  lean_ctor_set(x_41, 2, x_35);
  lean_ctor_set(x_41, 1, x_34);
  lean_ctor_set(x_41, 0, x_64);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_65);
  x_66 = 0;
  lean_ctor_set(x_1, 3, x_41);
  lean_ctor_set(x_1, 2, x_63);
  lean_ctor_set(x_1, 1, x_62);
  lean_ctor_set(x_1, 0, x_43);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_66);
  return x_1;
  }
  else
  {
  lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; uint8_t x_71; lean_object* x_72; uint8_t x_73; 
  x_67 = lean_ctor_get(x_43, 0);
  x_68 = lean_ctor_get(x_43, 1);
  x_69 = lean_ctor_get(x_43, 2);
  x_70 = lean_ctor_get(x_43, 3);
  lean_inc(x_70);
  lean_inc(x_69);
  lean_inc(x_68);
  lean_inc(x_67);
  lean_dec(x_43);
  x_71 = 1;
  x_72 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_72, 0, x_42);
  lean_ctor_set(x_72, 1, x_56);
  lean_ctor_set(x_72, 2, x_57);
  lean_ctor_set(x_72, 3, x_67);
  lean_ctor_set_uint8(x_72, sizeof(void*)*4, x_71);
  lean_ctor_set(x_41, 3, x_36);
  lean_ctor_set(x_41, 2, x_35);
  lean_ctor_set(x_41, 1, x_34);
  lean_ctor_set(x_41, 0, x_70);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_71);
  x_73 = 0;
  lean_ctor_set(x_1, 3, x_41);
  lean_ctor_set(x_1, 2, x_69);
  lean_ctor_set(x_1, 1, x_68);
  lean_ctor_set(x_1, 0, x_72);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_73);
  return x_1;
  }
  }
  else
  {
  lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; lean_object* x_82; lean_object* x_83; uint8_t x_84; 
  x_74 = lean_ctor_get(x_41, 1);
  x_75 = lean_ctor_get(x_41, 2);
  lean_inc(x_75);
  lean_inc(x_74);
  lean_dec(x_41);
  x_76 = lean_ctor_get(x_43, 0);
  lean_inc(x_76);
  x_77 = lean_ctor_get(x_43, 1);
  lean_inc(x_77);
  x_78 = lean_ctor_get(x_43, 2);
  lean_inc(x_78);
  x_79 = lean_ctor_get(x_43, 3);
  lean_inc(x_79);
  if (lean_is_exclusive(x_43)) {
   lean_ctor_release(x_43, 0);
   lean_ctor_release(x_43, 1);
   lean_ctor_release(x_43, 2);
   lean_ctor_release(x_43, 3);
   x_80 = x_43;
  } else {
   lean_dec_ref(x_43);
   x_80 = lean_box(0);
  }
  x_81 = 1;
  if (lean_is_scalar(x_80)) {
   x_82 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_82 = x_80;
  }
  lean_ctor_set(x_82, 0, x_42);
  lean_ctor_set(x_82, 1, x_74);
  lean_ctor_set(x_82, 2, x_75);
  lean_ctor_set(x_82, 3, x_76);
  lean_ctor_set_uint8(x_82, sizeof(void*)*4, x_81);
  x_83 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_83, 0, x_79);
  lean_ctor_set(x_83, 1, x_34);
  lean_ctor_set(x_83, 2, x_35);
  lean_ctor_set(x_83, 3, x_36);
  lean_ctor_set_uint8(x_83, sizeof(void*)*4, x_81);
  x_84 = 0;
  lean_ctor_set(x_1, 3, x_83);
  lean_ctor_set(x_1, 2, x_78);
  lean_ctor_set(x_1, 1, x_77);
  lean_ctor_set(x_1, 0, x_82);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_84);
  return x_1;
  }
  }
  else
  {
  uint8_t x_85; 
  x_85 = !lean_is_exclusive(x_41);
  if (x_85 == 0)
  {
  lean_object* x_86; lean_object* x_87; uint8_t x_88; uint8_t x_89; 
  x_86 = lean_ctor_get(x_41, 3);
  lean_dec(x_86);
  x_87 = lean_ctor_get(x_41, 0);
  lean_dec(x_87);
  x_88 = 0;
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_88);
  x_89 = 1;
  lean_ctor_set(x_1, 0, x_41);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_89);
  return x_1;
  }
  else
  {
  lean_object* x_90; lean_object* x_91; uint8_t x_92; lean_object* x_93; uint8_t x_94; 
  x_90 = lean_ctor_get(x_41, 1);
  x_91 = lean_ctor_get(x_41, 2);
  lean_inc(x_91);
  lean_inc(x_90);
  lean_dec(x_41);
  x_92 = 0;
  x_93 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_93, 0, x_42);
  lean_ctor_set(x_93, 1, x_90);
  lean_ctor_set(x_93, 2, x_91);
  lean_ctor_set(x_93, 3, x_43);
  lean_ctor_set_uint8(x_93, sizeof(void*)*4, x_92);
  x_94 = 1;
  lean_ctor_set(x_1, 0, x_93);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_94);
  return x_1;
  }
  }
  }
  }
  else
  {
  uint8_t x_95; 
  x_95 = lean_ctor_get_uint8(x_42, sizeof(void*)*4);
  if (x_95 == 0)
  {
  uint8_t x_96; 
  x_96 = !lean_is_exclusive(x_41);
  if (x_96 == 0)
  {
  lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; uint8_t x_101; 
  x_97 = lean_ctor_get(x_41, 1);
  x_98 = lean_ctor_get(x_41, 2);
  x_99 = lean_ctor_get(x_41, 3);
  x_100 = lean_ctor_get(x_41, 0);
  lean_dec(x_100);
  x_101 = !lean_is_exclusive(x_42);
  if (x_101 == 0)
  {
  uint8_t x_102; uint8_t x_103; 
  x_102 = 1;
  lean_ctor_set_uint8(x_42, sizeof(void*)*4, x_102);
  lean_ctor_set(x_41, 3, x_36);
  lean_ctor_set(x_41, 2, x_35);
  lean_ctor_set(x_41, 1, x_34);
  lean_ctor_set(x_41, 0, x_99);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_102);
  x_103 = 0;
  lean_ctor_set(x_1, 3, x_41);
  lean_ctor_set(x_1, 2, x_98);
  lean_ctor_set(x_1, 1, x_97);
  lean_ctor_set(x_1, 0, x_42);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_103);
  return x_1;
  }
  else
  {
  lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; lean_object* x_109; uint8_t x_110; 
  x_104 = lean_ctor_get(x_42, 0);
  x_105 = lean_ctor_get(x_42, 1);
  x_106 = lean_ctor_get(x_42, 2);
  x_107 = lean_ctor_get(x_42, 3);
  lean_inc(x_107);
  lean_inc(x_106);
  lean_inc(x_105);
  lean_inc(x_104);
  lean_dec(x_42);
  x_108 = 1;
  x_109 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_109, 0, x_104);
  lean_ctor_set(x_109, 1, x_105);
  lean_ctor_set(x_109, 2, x_106);
  lean_ctor_set(x_109, 3, x_107);
  lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108);
  lean_ctor_set(x_41, 3, x_36);
  lean_ctor_set(x_41, 2, x_35);
  lean_ctor_set(x_41, 1, x_34);
  lean_ctor_set(x_41, 0, x_99);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_108);
  x_110 = 0;
  lean_ctor_set(x_1, 3, x_41);
  lean_ctor_set(x_1, 2, x_98);
  lean_ctor_set(x_1, 1, x_97);
  lean_ctor_set(x_1, 0, x_109);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_110);
  return x_1;
  }
  }
  else
  {
  lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; uint8_t x_119; lean_object* x_120; lean_object* x_121; uint8_t x_122; 
  x_111 = lean_ctor_get(x_41, 1);
  x_112 = lean_ctor_get(x_41, 2);
  x_113 = lean_ctor_get(x_41, 3);
  lean_inc(x_113);
  lean_inc(x_112);
  lean_inc(x_111);
  lean_dec(x_41);
  x_114 = lean_ctor_get(x_42, 0);
  lean_inc(x_114);
  x_115 = lean_ctor_get(x_42, 1);
  lean_inc(x_115);
  x_116 = lean_ctor_get(x_42, 2);
  lean_inc(x_116);
  x_117 = lean_ctor_get(x_42, 3);
  lean_inc(x_117);
  if (lean_is_exclusive(x_42)) {
   lean_ctor_release(x_42, 0);
   lean_ctor_release(x_42, 1);
   lean_ctor_release(x_42, 2);
   lean_ctor_release(x_42, 3);
   x_118 = x_42;
  } else {
   lean_dec_ref(x_42);
   x_118 = lean_box(0);
  }
  x_119 = 1;
  if (lean_is_scalar(x_118)) {
   x_120 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_120 = x_118;
  }
  lean_ctor_set(x_120, 0, x_114);
  lean_ctor_set(x_120, 1, x_115);
  lean_ctor_set(x_120, 2, x_116);
  lean_ctor_set(x_120, 3, x_117);
  lean_ctor_set_uint8(x_120, sizeof(void*)*4, x_119);
  x_121 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_121, 0, x_113);
  lean_ctor_set(x_121, 1, x_34);
  lean_ctor_set(x_121, 2, x_35);
  lean_ctor_set(x_121, 3, x_36);
  lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_119);
  x_122 = 0;
  lean_ctor_set(x_1, 3, x_121);
  lean_ctor_set(x_1, 2, x_112);
  lean_ctor_set(x_1, 1, x_111);
  lean_ctor_set(x_1, 0, x_120);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_122);
  return x_1;
  }
  }
  else
  {
  lean_object* x_123; 
  x_123 = lean_ctor_get(x_41, 3);
  lean_inc(x_123);
  if (lean_obj_tag(x_123) == 0)
  {
  uint8_t x_124; 
  x_124 = !lean_is_exclusive(x_41);
  if (x_124 == 0)
  {
  lean_object* x_125; lean_object* x_126; uint8_t x_127; uint8_t x_128; 
  x_125 = lean_ctor_get(x_41, 3);
  lean_dec(x_125);
  x_126 = lean_ctor_get(x_41, 0);
  lean_dec(x_126);
  x_127 = 0;
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_127);
  x_128 = 1;
  lean_ctor_set(x_1, 0, x_41);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_128);
  return x_1;
  }
  else
  {
  lean_object* x_129; lean_object* x_130; uint8_t x_131; lean_object* x_132; uint8_t x_133; 
  x_129 = lean_ctor_get(x_41, 1);
  x_130 = lean_ctor_get(x_41, 2);
  lean_inc(x_130);
  lean_inc(x_129);
  lean_dec(x_41);
  x_131 = 0;
  x_132 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_132, 0, x_42);
  lean_ctor_set(x_132, 1, x_129);
  lean_ctor_set(x_132, 2, x_130);
  lean_ctor_set(x_132, 3, x_123);
  lean_ctor_set_uint8(x_132, sizeof(void*)*4, x_131);
  x_133 = 1;
  lean_ctor_set(x_1, 0, x_132);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_133);
  return x_1;
  }
  }
  else
  {
  uint8_t x_134; 
  x_134 = lean_ctor_get_uint8(x_123, sizeof(void*)*4);
  if (x_134 == 0)
  {
  uint8_t x_135; 
  lean_free_object(x_1);
  x_135 = !lean_is_exclusive(x_41);
  if (x_135 == 0)
  {
  lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; 
  x_136 = lean_ctor_get(x_41, 1);
  x_137 = lean_ctor_get(x_41, 2);
  x_138 = lean_ctor_get(x_41, 3);
  lean_dec(x_138);
  x_139 = lean_ctor_get(x_41, 0);
  lean_dec(x_139);
  x_140 = !lean_is_exclusive(x_123);
  if (x_140 == 0)
  {
  lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; uint8_t x_145; uint8_t x_146; 
  x_141 = lean_ctor_get(x_123, 0);
  x_142 = lean_ctor_get(x_123, 1);
  x_143 = lean_ctor_get(x_123, 2);
  x_144 = lean_ctor_get(x_123, 3);
  x_145 = 1;
  lean_inc(x_42);
  lean_ctor_set(x_123, 3, x_141);
  lean_ctor_set(x_123, 2, x_137);
  lean_ctor_set(x_123, 1, x_136);
  lean_ctor_set(x_123, 0, x_42);
  x_146 = !lean_is_exclusive(x_42);
  if (x_146 == 0)
  {
  lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; uint8_t x_151; 
  x_147 = lean_ctor_get(x_42, 3);
  lean_dec(x_147);
  x_148 = lean_ctor_get(x_42, 2);
  lean_dec(x_148);
  x_149 = lean_ctor_get(x_42, 1);
  lean_dec(x_149);
  x_150 = lean_ctor_get(x_42, 0);
  lean_dec(x_150);
  lean_ctor_set_uint8(x_123, sizeof(void*)*4, x_145);
  lean_ctor_set(x_42, 3, x_36);
  lean_ctor_set(x_42, 2, x_35);
  lean_ctor_set(x_42, 1, x_34);
  lean_ctor_set(x_42, 0, x_144);
  lean_ctor_set_uint8(x_42, sizeof(void*)*4, x_145);
  x_151 = 0;
  lean_ctor_set(x_41, 3, x_42);
  lean_ctor_set(x_41, 2, x_143);
  lean_ctor_set(x_41, 1, x_142);
  lean_ctor_set(x_41, 0, x_123);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_151);
  return x_41;
  }
  else
  {
  lean_object* x_152; uint8_t x_153; 
  lean_dec(x_42);
  lean_ctor_set_uint8(x_123, sizeof(void*)*4, x_145);
  x_152 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_152, 0, x_144);
  lean_ctor_set(x_152, 1, x_34);
  lean_ctor_set(x_152, 2, x_35);
  lean_ctor_set(x_152, 3, x_36);
  lean_ctor_set_uint8(x_152, sizeof(void*)*4, x_145);
  x_153 = 0;
  lean_ctor_set(x_41, 3, x_152);
  lean_ctor_set(x_41, 2, x_143);
  lean_ctor_set(x_41, 1, x_142);
  lean_ctor_set(x_41, 0, x_123);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_153);
  return x_41;
  }
  }
  else
  {
  lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; uint8_t x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; 
  x_154 = lean_ctor_get(x_123, 0);
  x_155 = lean_ctor_get(x_123, 1);
  x_156 = lean_ctor_get(x_123, 2);
  x_157 = lean_ctor_get(x_123, 3);
  lean_inc(x_157);
  lean_inc(x_156);
  lean_inc(x_155);
  lean_inc(x_154);
  lean_dec(x_123);
  x_158 = 1;
  lean_inc(x_42);
  x_159 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_159, 0, x_42);
  lean_ctor_set(x_159, 1, x_136);
  lean_ctor_set(x_159, 2, x_137);
  lean_ctor_set(x_159, 3, x_154);
  if (lean_is_exclusive(x_42)) {
   lean_ctor_release(x_42, 0);
   lean_ctor_release(x_42, 1);
   lean_ctor_release(x_42, 2);
   lean_ctor_release(x_42, 3);
   x_160 = x_42;
  } else {
   lean_dec_ref(x_42);
   x_160 = lean_box(0);
  }
  lean_ctor_set_uint8(x_159, sizeof(void*)*4, x_158);
  if (lean_is_scalar(x_160)) {
   x_161 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_161 = x_160;
  }
  lean_ctor_set(x_161, 0, x_157);
  lean_ctor_set(x_161, 1, x_34);
  lean_ctor_set(x_161, 2, x_35);
  lean_ctor_set(x_161, 3, x_36);
  lean_ctor_set_uint8(x_161, sizeof(void*)*4, x_158);
  x_162 = 0;
  lean_ctor_set(x_41, 3, x_161);
  lean_ctor_set(x_41, 2, x_156);
  lean_ctor_set(x_41, 1, x_155);
  lean_ctor_set(x_41, 0, x_159);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_162);
  return x_41;
  }
  }
  else
  {
  lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; uint8_t x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; uint8_t x_174; lean_object* x_175; 
  x_163 = lean_ctor_get(x_41, 1);
  x_164 = lean_ctor_get(x_41, 2);
  lean_inc(x_164);
  lean_inc(x_163);
  lean_dec(x_41);
  x_165 = lean_ctor_get(x_123, 0);
  lean_inc(x_165);
  x_166 = lean_ctor_get(x_123, 1);
  lean_inc(x_166);
  x_167 = lean_ctor_get(x_123, 2);
  lean_inc(x_167);
  x_168 = lean_ctor_get(x_123, 3);
  lean_inc(x_168);
  if (lean_is_exclusive(x_123)) {
   lean_ctor_release(x_123, 0);
   lean_ctor_release(x_123, 1);
   lean_ctor_release(x_123, 2);
   lean_ctor_release(x_123, 3);
   x_169 = x_123;
  } else {
   lean_dec_ref(x_123);
   x_169 = lean_box(0);
  }
  x_170 = 1;
  lean_inc(x_42);
  if (lean_is_scalar(x_169)) {
   x_171 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_171 = x_169;
  }
  lean_ctor_set(x_171, 0, x_42);
  lean_ctor_set(x_171, 1, x_163);
  lean_ctor_set(x_171, 2, x_164);
  lean_ctor_set(x_171, 3, x_165);
  if (lean_is_exclusive(x_42)) {
   lean_ctor_release(x_42, 0);
   lean_ctor_release(x_42, 1);
   lean_ctor_release(x_42, 2);
   lean_ctor_release(x_42, 3);
   x_172 = x_42;
  } else {
   lean_dec_ref(x_42);
   x_172 = lean_box(0);
  }
  lean_ctor_set_uint8(x_171, sizeof(void*)*4, x_170);
  if (lean_is_scalar(x_172)) {
   x_173 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_173 = x_172;
  }
  lean_ctor_set(x_173, 0, x_168);
  lean_ctor_set(x_173, 1, x_34);
  lean_ctor_set(x_173, 2, x_35);
  lean_ctor_set(x_173, 3, x_36);
  lean_ctor_set_uint8(x_173, sizeof(void*)*4, x_170);
  x_174 = 0;
  x_175 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_175, 0, x_171);
  lean_ctor_set(x_175, 1, x_166);
  lean_ctor_set(x_175, 2, x_167);
  lean_ctor_set(x_175, 3, x_173);
  lean_ctor_set_uint8(x_175, sizeof(void*)*4, x_174);
  return x_175;
  }
  }
  else
  {
  uint8_t x_176; 
  x_176 = !lean_is_exclusive(x_41);
  if (x_176 == 0)
  {
  lean_object* x_177; lean_object* x_178; uint8_t x_179; 
  x_177 = lean_ctor_get(x_41, 3);
  lean_dec(x_177);
  x_178 = lean_ctor_get(x_41, 0);
  lean_dec(x_178);
  x_179 = !lean_is_exclusive(x_42);
  if (x_179 == 0)
  {
  uint8_t x_180; uint8_t x_181; 
  lean_ctor_set_uint8(x_42, sizeof(void*)*4, x_134);
  x_180 = 0;
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_180);
  x_181 = 1;
  lean_ctor_set(x_1, 0, x_41);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_181);
  return x_1;
  }
  else
  {
  lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; uint8_t x_187; uint8_t x_188; 
  x_182 = lean_ctor_get(x_42, 0);
  x_183 = lean_ctor_get(x_42, 1);
  x_184 = lean_ctor_get(x_42, 2);
  x_185 = lean_ctor_get(x_42, 3);
  lean_inc(x_185);
  lean_inc(x_184);
  lean_inc(x_183);
  lean_inc(x_182);
  lean_dec(x_42);
  x_186 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_186, 0, x_182);
  lean_ctor_set(x_186, 1, x_183);
  lean_ctor_set(x_186, 2, x_184);
  lean_ctor_set(x_186, 3, x_185);
  lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_134);
  x_187 = 0;
  lean_ctor_set(x_41, 0, x_186);
  lean_ctor_set_uint8(x_41, sizeof(void*)*4, x_187);
  x_188 = 1;
  lean_ctor_set(x_1, 0, x_41);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_188);
  return x_1;
  }
  }
  else
  {
  lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; uint8_t x_197; lean_object* x_198; uint8_t x_199; 
  x_189 = lean_ctor_get(x_41, 1);
  x_190 = lean_ctor_get(x_41, 2);
  lean_inc(x_190);
  lean_inc(x_189);
  lean_dec(x_41);
  x_191 = lean_ctor_get(x_42, 0);
  lean_inc(x_191);
  x_192 = lean_ctor_get(x_42, 1);
  lean_inc(x_192);
  x_193 = lean_ctor_get(x_42, 2);
  lean_inc(x_193);
  x_194 = lean_ctor_get(x_42, 3);
  lean_inc(x_194);
  if (lean_is_exclusive(x_42)) {
   lean_ctor_release(x_42, 0);
   lean_ctor_release(x_42, 1);
   lean_ctor_release(x_42, 2);
   lean_ctor_release(x_42, 3);
   x_195 = x_42;
  } else {
   lean_dec_ref(x_42);
   x_195 = lean_box(0);
  }
  if (lean_is_scalar(x_195)) {
   x_196 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_196 = x_195;
  }
  lean_ctor_set(x_196, 0, x_191);
  lean_ctor_set(x_196, 1, x_192);
  lean_ctor_set(x_196, 2, x_193);
  lean_ctor_set(x_196, 3, x_194);
  lean_ctor_set_uint8(x_196, sizeof(void*)*4, x_134);
  x_197 = 0;
  x_198 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_198, 0, x_196);
  lean_ctor_set(x_198, 1, x_189);
  lean_ctor_set(x_198, 2, x_190);
  lean_ctor_set(x_198, 3, x_123);
  lean_ctor_set_uint8(x_198, sizeof(void*)*4, x_197);
  x_199 = 1;
  lean_ctor_set(x_1, 0, x_198);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199);
  return x_1;
  }
  }
  }
  }
  }
  }
  }
  case 1:
  {
  uint8_t x_200; 
  lean_dec(x_35);
  lean_dec(x_34);
  x_200 = 1;
  lean_ctor_set(x_1, 2, x_3);
  lean_ctor_set(x_1, 1, x_2);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_200);
  return x_1;
  }
  default: 
  {
  uint8_t x_201; 
  x_201 = l_Std_RBNode_isRed___rarg(x_36);
  if (x_201 == 0)
  {
  lean_object* x_202; uint8_t x_203; 
  x_202 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_36, x_2, x_3);
  x_203 = 1;
  lean_ctor_set(x_1, 3, x_202);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_203);
  return x_1;
  }
  else
  {
  lean_object* x_204; lean_object* x_205; 
  x_204 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_36, x_2, x_3);
  x_205 = lean_ctor_get(x_204, 0);
  lean_inc(x_205);
  if (lean_obj_tag(x_205) == 0)
  {
  lean_object* x_206; 
  x_206 = lean_ctor_get(x_204, 3);
  lean_inc(x_206);
  if (lean_obj_tag(x_206) == 0)
  {
  uint8_t x_207; 
  x_207 = !lean_is_exclusive(x_204);
  if (x_207 == 0)
  {
  lean_object* x_208; lean_object* x_209; uint8_t x_210; uint8_t x_211; 
  x_208 = lean_ctor_get(x_204, 3);
  lean_dec(x_208);
  x_209 = lean_ctor_get(x_204, 0);
  lean_dec(x_209);
  x_210 = 0;
  lean_ctor_set(x_204, 0, x_206);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_210);
  x_211 = 1;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_211);
  return x_1;
  }
  else
  {
  lean_object* x_212; lean_object* x_213; uint8_t x_214; lean_object* x_215; uint8_t x_216; 
  x_212 = lean_ctor_get(x_204, 1);
  x_213 = lean_ctor_get(x_204, 2);
  lean_inc(x_213);
  lean_inc(x_212);
  lean_dec(x_204);
  x_214 = 0;
  x_215 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_215, 0, x_206);
  lean_ctor_set(x_215, 1, x_212);
  lean_ctor_set(x_215, 2, x_213);
  lean_ctor_set(x_215, 3, x_206);
  lean_ctor_set_uint8(x_215, sizeof(void*)*4, x_214);
  x_216 = 1;
  lean_ctor_set(x_1, 3, x_215);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_216);
  return x_1;
  }
  }
  else
  {
  uint8_t x_217; 
  x_217 = lean_ctor_get_uint8(x_206, sizeof(void*)*4);
  if (x_217 == 0)
  {
  uint8_t x_218; 
  x_218 = !lean_is_exclusive(x_204);
  if (x_218 == 0)
  {
  lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; uint8_t x_223; 
  x_219 = lean_ctor_get(x_204, 1);
  x_220 = lean_ctor_get(x_204, 2);
  x_221 = lean_ctor_get(x_204, 3);
  lean_dec(x_221);
  x_222 = lean_ctor_get(x_204, 0);
  lean_dec(x_222);
  x_223 = !lean_is_exclusive(x_206);
  if (x_223 == 0)
  {
  lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; uint8_t x_228; uint8_t x_229; 
  x_224 = lean_ctor_get(x_206, 0);
  x_225 = lean_ctor_get(x_206, 1);
  x_226 = lean_ctor_get(x_206, 2);
  x_227 = lean_ctor_get(x_206, 3);
  x_228 = 1;
  lean_ctor_set(x_206, 3, x_205);
  lean_ctor_set(x_206, 2, x_35);
  lean_ctor_set(x_206, 1, x_34);
  lean_ctor_set(x_206, 0, x_33);
  lean_ctor_set_uint8(x_206, sizeof(void*)*4, x_228);
  lean_ctor_set(x_204, 3, x_227);
  lean_ctor_set(x_204, 2, x_226);
  lean_ctor_set(x_204, 1, x_225);
  lean_ctor_set(x_204, 0, x_224);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_228);
  x_229 = 0;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set(x_1, 2, x_220);
  lean_ctor_set(x_1, 1, x_219);
  lean_ctor_set(x_1, 0, x_206);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_229);
  return x_1;
  }
  else
  {
  lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; uint8_t x_234; lean_object* x_235; uint8_t x_236; 
  x_230 = lean_ctor_get(x_206, 0);
  x_231 = lean_ctor_get(x_206, 1);
  x_232 = lean_ctor_get(x_206, 2);
  x_233 = lean_ctor_get(x_206, 3);
  lean_inc(x_233);
  lean_inc(x_232);
  lean_inc(x_231);
  lean_inc(x_230);
  lean_dec(x_206);
  x_234 = 1;
  x_235 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_235, 0, x_33);
  lean_ctor_set(x_235, 1, x_34);
  lean_ctor_set(x_235, 2, x_35);
  lean_ctor_set(x_235, 3, x_205);
  lean_ctor_set_uint8(x_235, sizeof(void*)*4, x_234);
  lean_ctor_set(x_204, 3, x_233);
  lean_ctor_set(x_204, 2, x_232);
  lean_ctor_set(x_204, 1, x_231);
  lean_ctor_set(x_204, 0, x_230);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_234);
  x_236 = 0;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set(x_1, 2, x_220);
  lean_ctor_set(x_1, 1, x_219);
  lean_ctor_set(x_1, 0, x_235);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_236);
  return x_1;
  }
  }
  else
  {
  lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; uint8_t x_244; lean_object* x_245; lean_object* x_246; uint8_t x_247; 
  x_237 = lean_ctor_get(x_204, 1);
  x_238 = lean_ctor_get(x_204, 2);
  lean_inc(x_238);
  lean_inc(x_237);
  lean_dec(x_204);
  x_239 = lean_ctor_get(x_206, 0);
  lean_inc(x_239);
  x_240 = lean_ctor_get(x_206, 1);
  lean_inc(x_240);
  x_241 = lean_ctor_get(x_206, 2);
  lean_inc(x_241);
  x_242 = lean_ctor_get(x_206, 3);
  lean_inc(x_242);
  if (lean_is_exclusive(x_206)) {
   lean_ctor_release(x_206, 0);
   lean_ctor_release(x_206, 1);
   lean_ctor_release(x_206, 2);
   lean_ctor_release(x_206, 3);
   x_243 = x_206;
  } else {
   lean_dec_ref(x_206);
   x_243 = lean_box(0);
  }
  x_244 = 1;
  if (lean_is_scalar(x_243)) {
   x_245 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_245 = x_243;
  }
  lean_ctor_set(x_245, 0, x_33);
  lean_ctor_set(x_245, 1, x_34);
  lean_ctor_set(x_245, 2, x_35);
  lean_ctor_set(x_245, 3, x_205);
  lean_ctor_set_uint8(x_245, sizeof(void*)*4, x_244);
  x_246 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_246, 0, x_239);
  lean_ctor_set(x_246, 1, x_240);
  lean_ctor_set(x_246, 2, x_241);
  lean_ctor_set(x_246, 3, x_242);
  lean_ctor_set_uint8(x_246, sizeof(void*)*4, x_244);
  x_247 = 0;
  lean_ctor_set(x_1, 3, x_246);
  lean_ctor_set(x_1, 2, x_238);
  lean_ctor_set(x_1, 1, x_237);
  lean_ctor_set(x_1, 0, x_245);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_247);
  return x_1;
  }
  }
  else
  {
  uint8_t x_248; 
  x_248 = !lean_is_exclusive(x_204);
  if (x_248 == 0)
  {
  lean_object* x_249; lean_object* x_250; uint8_t x_251; uint8_t x_252; 
  x_249 = lean_ctor_get(x_204, 3);
  lean_dec(x_249);
  x_250 = lean_ctor_get(x_204, 0);
  lean_dec(x_250);
  x_251 = 0;
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_251);
  x_252 = 1;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_252);
  return x_1;
  }
  else
  {
  lean_object* x_253; lean_object* x_254; uint8_t x_255; lean_object* x_256; uint8_t x_257; 
  x_253 = lean_ctor_get(x_204, 1);
  x_254 = lean_ctor_get(x_204, 2);
  lean_inc(x_254);
  lean_inc(x_253);
  lean_dec(x_204);
  x_255 = 0;
  x_256 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_256, 0, x_205);
  lean_ctor_set(x_256, 1, x_253);
  lean_ctor_set(x_256, 2, x_254);
  lean_ctor_set(x_256, 3, x_206);
  lean_ctor_set_uint8(x_256, sizeof(void*)*4, x_255);
  x_257 = 1;
  lean_ctor_set(x_1, 3, x_256);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_257);
  return x_1;
  }
  }
  }
  }
  else
  {
  uint8_t x_258; 
  x_258 = lean_ctor_get_uint8(x_205, sizeof(void*)*4);
  if (x_258 == 0)
  {
  uint8_t x_259; 
  x_259 = !lean_is_exclusive(x_204);
  if (x_259 == 0)
  {
  lean_object* x_260; uint8_t x_261; 
  x_260 = lean_ctor_get(x_204, 0);
  lean_dec(x_260);
  x_261 = !lean_is_exclusive(x_205);
  if (x_261 == 0)
  {
  lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; uint8_t x_266; uint8_t x_267; 
  x_262 = lean_ctor_get(x_205, 0);
  x_263 = lean_ctor_get(x_205, 1);
  x_264 = lean_ctor_get(x_205, 2);
  x_265 = lean_ctor_get(x_205, 3);
  x_266 = 1;
  lean_ctor_set(x_205, 3, x_262);
  lean_ctor_set(x_205, 2, x_35);
  lean_ctor_set(x_205, 1, x_34);
  lean_ctor_set(x_205, 0, x_33);
  lean_ctor_set_uint8(x_205, sizeof(void*)*4, x_266);
  lean_ctor_set(x_204, 0, x_265);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_266);
  x_267 = 0;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set(x_1, 2, x_264);
  lean_ctor_set(x_1, 1, x_263);
  lean_ctor_set(x_1, 0, x_205);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_267);
  return x_1;
  }
  else
  {
  lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; uint8_t x_272; lean_object* x_273; uint8_t x_274; 
  x_268 = lean_ctor_get(x_205, 0);
  x_269 = lean_ctor_get(x_205, 1);
  x_270 = lean_ctor_get(x_205, 2);
  x_271 = lean_ctor_get(x_205, 3);
  lean_inc(x_271);
  lean_inc(x_270);
  lean_inc(x_269);
  lean_inc(x_268);
  lean_dec(x_205);
  x_272 = 1;
  x_273 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_273, 0, x_33);
  lean_ctor_set(x_273, 1, x_34);
  lean_ctor_set(x_273, 2, x_35);
  lean_ctor_set(x_273, 3, x_268);
  lean_ctor_set_uint8(x_273, sizeof(void*)*4, x_272);
  lean_ctor_set(x_204, 0, x_271);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_272);
  x_274 = 0;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set(x_1, 2, x_270);
  lean_ctor_set(x_1, 1, x_269);
  lean_ctor_set(x_1, 0, x_273);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_274);
  return x_1;
  }
  }
  else
  {
  lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; uint8_t x_283; lean_object* x_284; lean_object* x_285; uint8_t x_286; 
  x_275 = lean_ctor_get(x_204, 1);
  x_276 = lean_ctor_get(x_204, 2);
  x_277 = lean_ctor_get(x_204, 3);
  lean_inc(x_277);
  lean_inc(x_276);
  lean_inc(x_275);
  lean_dec(x_204);
  x_278 = lean_ctor_get(x_205, 0);
  lean_inc(x_278);
  x_279 = lean_ctor_get(x_205, 1);
  lean_inc(x_279);
  x_280 = lean_ctor_get(x_205, 2);
  lean_inc(x_280);
  x_281 = lean_ctor_get(x_205, 3);
  lean_inc(x_281);
  if (lean_is_exclusive(x_205)) {
   lean_ctor_release(x_205, 0);
   lean_ctor_release(x_205, 1);
   lean_ctor_release(x_205, 2);
   lean_ctor_release(x_205, 3);
   x_282 = x_205;
  } else {
   lean_dec_ref(x_205);
   x_282 = lean_box(0);
  }
  x_283 = 1;
  if (lean_is_scalar(x_282)) {
   x_284 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_284 = x_282;
  }
  lean_ctor_set(x_284, 0, x_33);
  lean_ctor_set(x_284, 1, x_34);
  lean_ctor_set(x_284, 2, x_35);
  lean_ctor_set(x_284, 3, x_278);
  lean_ctor_set_uint8(x_284, sizeof(void*)*4, x_283);
  x_285 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_285, 0, x_281);
  lean_ctor_set(x_285, 1, x_275);
  lean_ctor_set(x_285, 2, x_276);
  lean_ctor_set(x_285, 3, x_277);
  lean_ctor_set_uint8(x_285, sizeof(void*)*4, x_283);
  x_286 = 0;
  lean_ctor_set(x_1, 3, x_285);
  lean_ctor_set(x_1, 2, x_280);
  lean_ctor_set(x_1, 1, x_279);
  lean_ctor_set(x_1, 0, x_284);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_286);
  return x_1;
  }
  }
  else
  {
  lean_object* x_287; 
  x_287 = lean_ctor_get(x_204, 3);
  lean_inc(x_287);
  if (lean_obj_tag(x_287) == 0)
  {
  uint8_t x_288; 
  x_288 = !lean_is_exclusive(x_204);
  if (x_288 == 0)
  {
  lean_object* x_289; lean_object* x_290; uint8_t x_291; uint8_t x_292; 
  x_289 = lean_ctor_get(x_204, 3);
  lean_dec(x_289);
  x_290 = lean_ctor_get(x_204, 0);
  lean_dec(x_290);
  x_291 = 0;
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_291);
  x_292 = 1;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_292);
  return x_1;
  }
  else
  {
  lean_object* x_293; lean_object* x_294; uint8_t x_295; lean_object* x_296; uint8_t x_297; 
  x_293 = lean_ctor_get(x_204, 1);
  x_294 = lean_ctor_get(x_204, 2);
  lean_inc(x_294);
  lean_inc(x_293);
  lean_dec(x_204);
  x_295 = 0;
  x_296 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_296, 0, x_205);
  lean_ctor_set(x_296, 1, x_293);
  lean_ctor_set(x_296, 2, x_294);
  lean_ctor_set(x_296, 3, x_287);
  lean_ctor_set_uint8(x_296, sizeof(void*)*4, x_295);
  x_297 = 1;
  lean_ctor_set(x_1, 3, x_296);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_297);
  return x_1;
  }
  }
  else
  {
  uint8_t x_298; 
  x_298 = lean_ctor_get_uint8(x_287, sizeof(void*)*4);
  if (x_298 == 0)
  {
  uint8_t x_299; 
  lean_free_object(x_1);
  x_299 = !lean_is_exclusive(x_204);
  if (x_299 == 0)
  {
  lean_object* x_300; lean_object* x_301; uint8_t x_302; 
  x_300 = lean_ctor_get(x_204, 3);
  lean_dec(x_300);
  x_301 = lean_ctor_get(x_204, 0);
  lean_dec(x_301);
  x_302 = !lean_is_exclusive(x_287);
  if (x_302 == 0)
  {
  lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; uint8_t x_307; uint8_t x_308; 
  x_303 = lean_ctor_get(x_287, 0);
  x_304 = lean_ctor_get(x_287, 1);
  x_305 = lean_ctor_get(x_287, 2);
  x_306 = lean_ctor_get(x_287, 3);
  x_307 = 1;
  lean_inc(x_205);
  lean_ctor_set(x_287, 3, x_205);
  lean_ctor_set(x_287, 2, x_35);
  lean_ctor_set(x_287, 1, x_34);
  lean_ctor_set(x_287, 0, x_33);
  x_308 = !lean_is_exclusive(x_205);
  if (x_308 == 0)
  {
  lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; uint8_t x_313; 
  x_309 = lean_ctor_get(x_205, 3);
  lean_dec(x_309);
  x_310 = lean_ctor_get(x_205, 2);
  lean_dec(x_310);
  x_311 = lean_ctor_get(x_205, 1);
  lean_dec(x_311);
  x_312 = lean_ctor_get(x_205, 0);
  lean_dec(x_312);
  lean_ctor_set_uint8(x_287, sizeof(void*)*4, x_307);
  lean_ctor_set(x_205, 3, x_306);
  lean_ctor_set(x_205, 2, x_305);
  lean_ctor_set(x_205, 1, x_304);
  lean_ctor_set(x_205, 0, x_303);
  lean_ctor_set_uint8(x_205, sizeof(void*)*4, x_307);
  x_313 = 0;
  lean_ctor_set(x_204, 3, x_205);
  lean_ctor_set(x_204, 0, x_287);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_313);
  return x_204;
  }
  else
  {
  lean_object* x_314; uint8_t x_315; 
  lean_dec(x_205);
  lean_ctor_set_uint8(x_287, sizeof(void*)*4, x_307);
  x_314 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_314, 0, x_303);
  lean_ctor_set(x_314, 1, x_304);
  lean_ctor_set(x_314, 2, x_305);
  lean_ctor_set(x_314, 3, x_306);
  lean_ctor_set_uint8(x_314, sizeof(void*)*4, x_307);
  x_315 = 0;
  lean_ctor_set(x_204, 3, x_314);
  lean_ctor_set(x_204, 0, x_287);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_315);
  return x_204;
  }
  }
  else
  {
  lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; uint8_t x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; uint8_t x_324; 
  x_316 = lean_ctor_get(x_287, 0);
  x_317 = lean_ctor_get(x_287, 1);
  x_318 = lean_ctor_get(x_287, 2);
  x_319 = lean_ctor_get(x_287, 3);
  lean_inc(x_319);
  lean_inc(x_318);
  lean_inc(x_317);
  lean_inc(x_316);
  lean_dec(x_287);
  x_320 = 1;
  lean_inc(x_205);
  x_321 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_321, 0, x_33);
  lean_ctor_set(x_321, 1, x_34);
  lean_ctor_set(x_321, 2, x_35);
  lean_ctor_set(x_321, 3, x_205);
  if (lean_is_exclusive(x_205)) {
   lean_ctor_release(x_205, 0);
   lean_ctor_release(x_205, 1);
   lean_ctor_release(x_205, 2);
   lean_ctor_release(x_205, 3);
   x_322 = x_205;
  } else {
   lean_dec_ref(x_205);
   x_322 = lean_box(0);
  }
  lean_ctor_set_uint8(x_321, sizeof(void*)*4, x_320);
  if (lean_is_scalar(x_322)) {
   x_323 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_323 = x_322;
  }
  lean_ctor_set(x_323, 0, x_316);
  lean_ctor_set(x_323, 1, x_317);
  lean_ctor_set(x_323, 2, x_318);
  lean_ctor_set(x_323, 3, x_319);
  lean_ctor_set_uint8(x_323, sizeof(void*)*4, x_320);
  x_324 = 0;
  lean_ctor_set(x_204, 3, x_323);
  lean_ctor_set(x_204, 0, x_321);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_324);
  return x_204;
  }
  }
  else
  {
  lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; uint8_t x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; uint8_t x_336; lean_object* x_337; 
  x_325 = lean_ctor_get(x_204, 1);
  x_326 = lean_ctor_get(x_204, 2);
  lean_inc(x_326);
  lean_inc(x_325);
  lean_dec(x_204);
  x_327 = lean_ctor_get(x_287, 0);
  lean_inc(x_327);
  x_328 = lean_ctor_get(x_287, 1);
  lean_inc(x_328);
  x_329 = lean_ctor_get(x_287, 2);
  lean_inc(x_329);
  x_330 = lean_ctor_get(x_287, 3);
  lean_inc(x_330);
  if (lean_is_exclusive(x_287)) {
   lean_ctor_release(x_287, 0);
   lean_ctor_release(x_287, 1);
   lean_ctor_release(x_287, 2);
   lean_ctor_release(x_287, 3);
   x_331 = x_287;
  } else {
   lean_dec_ref(x_287);
   x_331 = lean_box(0);
  }
  x_332 = 1;
  lean_inc(x_205);
  if (lean_is_scalar(x_331)) {
   x_333 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_333 = x_331;
  }
  lean_ctor_set(x_333, 0, x_33);
  lean_ctor_set(x_333, 1, x_34);
  lean_ctor_set(x_333, 2, x_35);
  lean_ctor_set(x_333, 3, x_205);
  if (lean_is_exclusive(x_205)) {
   lean_ctor_release(x_205, 0);
   lean_ctor_release(x_205, 1);
   lean_ctor_release(x_205, 2);
   lean_ctor_release(x_205, 3);
   x_334 = x_205;
  } else {
   lean_dec_ref(x_205);
   x_334 = lean_box(0);
  }
  lean_ctor_set_uint8(x_333, sizeof(void*)*4, x_332);
  if (lean_is_scalar(x_334)) {
   x_335 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_335 = x_334;
  }
  lean_ctor_set(x_335, 0, x_327);
  lean_ctor_set(x_335, 1, x_328);
  lean_ctor_set(x_335, 2, x_329);
  lean_ctor_set(x_335, 3, x_330);
  lean_ctor_set_uint8(x_335, sizeof(void*)*4, x_332);
  x_336 = 0;
  x_337 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_337, 0, x_333);
  lean_ctor_set(x_337, 1, x_325);
  lean_ctor_set(x_337, 2, x_326);
  lean_ctor_set(x_337, 3, x_335);
  lean_ctor_set_uint8(x_337, sizeof(void*)*4, x_336);
  return x_337;
  }
  }
  else
  {
  uint8_t x_338; 
  x_338 = !lean_is_exclusive(x_204);
  if (x_338 == 0)
  {
  lean_object* x_339; lean_object* x_340; uint8_t x_341; 
  x_339 = lean_ctor_get(x_204, 3);
  lean_dec(x_339);
  x_340 = lean_ctor_get(x_204, 0);
  lean_dec(x_340);
  x_341 = !lean_is_exclusive(x_205);
  if (x_341 == 0)
  {
  uint8_t x_342; uint8_t x_343; 
  lean_ctor_set_uint8(x_205, sizeof(void*)*4, x_298);
  x_342 = 0;
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_342);
  x_343 = 1;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_343);
  return x_1;
  }
  else
  {
  lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; uint8_t x_349; uint8_t x_350; 
  x_344 = lean_ctor_get(x_205, 0);
  x_345 = lean_ctor_get(x_205, 1);
  x_346 = lean_ctor_get(x_205, 2);
  x_347 = lean_ctor_get(x_205, 3);
  lean_inc(x_347);
  lean_inc(x_346);
  lean_inc(x_345);
  lean_inc(x_344);
  lean_dec(x_205);
  x_348 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_348, 0, x_344);
  lean_ctor_set(x_348, 1, x_345);
  lean_ctor_set(x_348, 2, x_346);
  lean_ctor_set(x_348, 3, x_347);
  lean_ctor_set_uint8(x_348, sizeof(void*)*4, x_298);
  x_349 = 0;
  lean_ctor_set(x_204, 0, x_348);
  lean_ctor_set_uint8(x_204, sizeof(void*)*4, x_349);
  x_350 = 1;
  lean_ctor_set(x_1, 3, x_204);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_350);
  return x_1;
  }
  }
  else
  {
  lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; uint8_t x_359; lean_object* x_360; uint8_t x_361; 
  x_351 = lean_ctor_get(x_204, 1);
  x_352 = lean_ctor_get(x_204, 2);
  lean_inc(x_352);
  lean_inc(x_351);
  lean_dec(x_204);
  x_353 = lean_ctor_get(x_205, 0);
  lean_inc(x_353);
  x_354 = lean_ctor_get(x_205, 1);
  lean_inc(x_354);
  x_355 = lean_ctor_get(x_205, 2);
  lean_inc(x_355);
  x_356 = lean_ctor_get(x_205, 3);
  lean_inc(x_356);
  if (lean_is_exclusive(x_205)) {
   lean_ctor_release(x_205, 0);
   lean_ctor_release(x_205, 1);
   lean_ctor_release(x_205, 2);
   lean_ctor_release(x_205, 3);
   x_357 = x_205;
  } else {
   lean_dec_ref(x_205);
   x_357 = lean_box(0);
  }
  if (lean_is_scalar(x_357)) {
   x_358 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_358 = x_357;
  }
  lean_ctor_set(x_358, 0, x_353);
  lean_ctor_set(x_358, 1, x_354);
  lean_ctor_set(x_358, 2, x_355);
  lean_ctor_set(x_358, 3, x_356);
  lean_ctor_set_uint8(x_358, sizeof(void*)*4, x_298);
  x_359 = 0;
  x_360 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_360, 0, x_358);
  lean_ctor_set(x_360, 1, x_351);
  lean_ctor_set(x_360, 2, x_352);
  lean_ctor_set(x_360, 3, x_287);
  lean_ctor_set_uint8(x_360, sizeof(void*)*4, x_359);
  x_361 = 1;
  lean_ctor_set(x_1, 3, x_360);
  lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_361);
  return x_1;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  else
  {
  lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; uint8_t x_366; 
  x_362 = lean_ctor_get(x_1, 0);
  x_363 = lean_ctor_get(x_1, 1);
  x_364 = lean_ctor_get(x_1, 2);
  x_365 = lean_ctor_get(x_1, 3);
  lean_inc(x_365);
  lean_inc(x_364);
  lean_inc(x_363);
  lean_inc(x_362);
  lean_dec(x_1);
  x_366 = l_Lean_Name_quickCmp(x_2, x_363);
  switch (x_366) {
  case 0:
  {
  uint8_t x_367; 
  x_367 = l_Std_RBNode_isRed___rarg(x_362);
  if (x_367 == 0)
  {
  lean_object* x_368; uint8_t x_369; lean_object* x_370; 
  x_368 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_362, x_2, x_3);
  x_369 = 1;
  x_370 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_370, 0, x_368);
  lean_ctor_set(x_370, 1, x_363);
  lean_ctor_set(x_370, 2, x_364);
  lean_ctor_set(x_370, 3, x_365);
  lean_ctor_set_uint8(x_370, sizeof(void*)*4, x_369);
  return x_370;
  }
  else
  {
  lean_object* x_371; lean_object* x_372; 
  x_371 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_362, x_2, x_3);
  x_372 = lean_ctor_get(x_371, 0);
  lean_inc(x_372);
  if (lean_obj_tag(x_372) == 0)
  {
  lean_object* x_373; 
  x_373 = lean_ctor_get(x_371, 3);
  lean_inc(x_373);
  if (lean_obj_tag(x_373) == 0)
  {
  lean_object* x_374; lean_object* x_375; lean_object* x_376; uint8_t x_377; lean_object* x_378; uint8_t x_379; lean_object* x_380; 
  x_374 = lean_ctor_get(x_371, 1);
  lean_inc(x_374);
  x_375 = lean_ctor_get(x_371, 2);
  lean_inc(x_375);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_376 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_376 = lean_box(0);
  }
  x_377 = 0;
  if (lean_is_scalar(x_376)) {
   x_378 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_378 = x_376;
  }
  lean_ctor_set(x_378, 0, x_373);
  lean_ctor_set(x_378, 1, x_374);
  lean_ctor_set(x_378, 2, x_375);
  lean_ctor_set(x_378, 3, x_373);
  lean_ctor_set_uint8(x_378, sizeof(void*)*4, x_377);
  x_379 = 1;
  x_380 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_380, 0, x_378);
  lean_ctor_set(x_380, 1, x_363);
  lean_ctor_set(x_380, 2, x_364);
  lean_ctor_set(x_380, 3, x_365);
  lean_ctor_set_uint8(x_380, sizeof(void*)*4, x_379);
  return x_380;
  }
  else
  {
  uint8_t x_381; 
  x_381 = lean_ctor_get_uint8(x_373, sizeof(void*)*4);
  if (x_381 == 0)
  {
  lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; uint8_t x_390; lean_object* x_391; lean_object* x_392; uint8_t x_393; lean_object* x_394; 
  x_382 = lean_ctor_get(x_371, 1);
  lean_inc(x_382);
  x_383 = lean_ctor_get(x_371, 2);
  lean_inc(x_383);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_384 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_384 = lean_box(0);
  }
  x_385 = lean_ctor_get(x_373, 0);
  lean_inc(x_385);
  x_386 = lean_ctor_get(x_373, 1);
  lean_inc(x_386);
  x_387 = lean_ctor_get(x_373, 2);
  lean_inc(x_387);
  x_388 = lean_ctor_get(x_373, 3);
  lean_inc(x_388);
  if (lean_is_exclusive(x_373)) {
   lean_ctor_release(x_373, 0);
   lean_ctor_release(x_373, 1);
   lean_ctor_release(x_373, 2);
   lean_ctor_release(x_373, 3);
   x_389 = x_373;
  } else {
   lean_dec_ref(x_373);
   x_389 = lean_box(0);
  }
  x_390 = 1;
  if (lean_is_scalar(x_389)) {
   x_391 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_391 = x_389;
  }
  lean_ctor_set(x_391, 0, x_372);
  lean_ctor_set(x_391, 1, x_382);
  lean_ctor_set(x_391, 2, x_383);
  lean_ctor_set(x_391, 3, x_385);
  lean_ctor_set_uint8(x_391, sizeof(void*)*4, x_390);
  if (lean_is_scalar(x_384)) {
   x_392 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_392 = x_384;
  }
  lean_ctor_set(x_392, 0, x_388);
  lean_ctor_set(x_392, 1, x_363);
  lean_ctor_set(x_392, 2, x_364);
  lean_ctor_set(x_392, 3, x_365);
  lean_ctor_set_uint8(x_392, sizeof(void*)*4, x_390);
  x_393 = 0;
  x_394 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_394, 0, x_391);
  lean_ctor_set(x_394, 1, x_386);
  lean_ctor_set(x_394, 2, x_387);
  lean_ctor_set(x_394, 3, x_392);
  lean_ctor_set_uint8(x_394, sizeof(void*)*4, x_393);
  return x_394;
  }
  else
  {
  lean_object* x_395; lean_object* x_396; lean_object* x_397; uint8_t x_398; lean_object* x_399; uint8_t x_400; lean_object* x_401; 
  x_395 = lean_ctor_get(x_371, 1);
  lean_inc(x_395);
  x_396 = lean_ctor_get(x_371, 2);
  lean_inc(x_396);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_397 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_397 = lean_box(0);
  }
  x_398 = 0;
  if (lean_is_scalar(x_397)) {
   x_399 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_399 = x_397;
  }
  lean_ctor_set(x_399, 0, x_372);
  lean_ctor_set(x_399, 1, x_395);
  lean_ctor_set(x_399, 2, x_396);
  lean_ctor_set(x_399, 3, x_373);
  lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_398);
  x_400 = 1;
  x_401 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_401, 0, x_399);
  lean_ctor_set(x_401, 1, x_363);
  lean_ctor_set(x_401, 2, x_364);
  lean_ctor_set(x_401, 3, x_365);
  lean_ctor_set_uint8(x_401, sizeof(void*)*4, x_400);
  return x_401;
  }
  }
  }
  else
  {
  uint8_t x_402; 
  x_402 = lean_ctor_get_uint8(x_372, sizeof(void*)*4);
  if (x_402 == 0)
  {
  lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; uint8_t x_412; lean_object* x_413; lean_object* x_414; uint8_t x_415; lean_object* x_416; 
  x_403 = lean_ctor_get(x_371, 1);
  lean_inc(x_403);
  x_404 = lean_ctor_get(x_371, 2);
  lean_inc(x_404);
  x_405 = lean_ctor_get(x_371, 3);
  lean_inc(x_405);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_406 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_406 = lean_box(0);
  }
  x_407 = lean_ctor_get(x_372, 0);
  lean_inc(x_407);
  x_408 = lean_ctor_get(x_372, 1);
  lean_inc(x_408);
  x_409 = lean_ctor_get(x_372, 2);
  lean_inc(x_409);
  x_410 = lean_ctor_get(x_372, 3);
  lean_inc(x_410);
  if (lean_is_exclusive(x_372)) {
   lean_ctor_release(x_372, 0);
   lean_ctor_release(x_372, 1);
   lean_ctor_release(x_372, 2);
   lean_ctor_release(x_372, 3);
   x_411 = x_372;
  } else {
   lean_dec_ref(x_372);
   x_411 = lean_box(0);
  }
  x_412 = 1;
  if (lean_is_scalar(x_411)) {
   x_413 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_413 = x_411;
  }
  lean_ctor_set(x_413, 0, x_407);
  lean_ctor_set(x_413, 1, x_408);
  lean_ctor_set(x_413, 2, x_409);
  lean_ctor_set(x_413, 3, x_410);
  lean_ctor_set_uint8(x_413, sizeof(void*)*4, x_412);
  if (lean_is_scalar(x_406)) {
   x_414 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_414 = x_406;
  }
  lean_ctor_set(x_414, 0, x_405);
  lean_ctor_set(x_414, 1, x_363);
  lean_ctor_set(x_414, 2, x_364);
  lean_ctor_set(x_414, 3, x_365);
  lean_ctor_set_uint8(x_414, sizeof(void*)*4, x_412);
  x_415 = 0;
  x_416 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_416, 0, x_413);
  lean_ctor_set(x_416, 1, x_403);
  lean_ctor_set(x_416, 2, x_404);
  lean_ctor_set(x_416, 3, x_414);
  lean_ctor_set_uint8(x_416, sizeof(void*)*4, x_415);
  return x_416;
  }
  else
  {
  lean_object* x_417; 
  x_417 = lean_ctor_get(x_371, 3);
  lean_inc(x_417);
  if (lean_obj_tag(x_417) == 0)
  {
  lean_object* x_418; lean_object* x_419; lean_object* x_420; uint8_t x_421; lean_object* x_422; uint8_t x_423; lean_object* x_424; 
  x_418 = lean_ctor_get(x_371, 1);
  lean_inc(x_418);
  x_419 = lean_ctor_get(x_371, 2);
  lean_inc(x_419);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_420 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_420 = lean_box(0);
  }
  x_421 = 0;
  if (lean_is_scalar(x_420)) {
   x_422 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_422 = x_420;
  }
  lean_ctor_set(x_422, 0, x_372);
  lean_ctor_set(x_422, 1, x_418);
  lean_ctor_set(x_422, 2, x_419);
  lean_ctor_set(x_422, 3, x_417);
  lean_ctor_set_uint8(x_422, sizeof(void*)*4, x_421);
  x_423 = 1;
  x_424 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_424, 0, x_422);
  lean_ctor_set(x_424, 1, x_363);
  lean_ctor_set(x_424, 2, x_364);
  lean_ctor_set(x_424, 3, x_365);
  lean_ctor_set_uint8(x_424, sizeof(void*)*4, x_423);
  return x_424;
  }
  else
  {
  uint8_t x_425; 
  x_425 = lean_ctor_get_uint8(x_417, sizeof(void*)*4);
  if (x_425 == 0)
  {
  lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; uint8_t x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; uint8_t x_438; lean_object* x_439; 
  x_426 = lean_ctor_get(x_371, 1);
  lean_inc(x_426);
  x_427 = lean_ctor_get(x_371, 2);
  lean_inc(x_427);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_428 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_428 = lean_box(0);
  }
  x_429 = lean_ctor_get(x_417, 0);
  lean_inc(x_429);
  x_430 = lean_ctor_get(x_417, 1);
  lean_inc(x_430);
  x_431 = lean_ctor_get(x_417, 2);
  lean_inc(x_431);
  x_432 = lean_ctor_get(x_417, 3);
  lean_inc(x_432);
  if (lean_is_exclusive(x_417)) {
   lean_ctor_release(x_417, 0);
   lean_ctor_release(x_417, 1);
   lean_ctor_release(x_417, 2);
   lean_ctor_release(x_417, 3);
   x_433 = x_417;
  } else {
   lean_dec_ref(x_417);
   x_433 = lean_box(0);
  }
  x_434 = 1;
  lean_inc(x_372);
  if (lean_is_scalar(x_433)) {
   x_435 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_435 = x_433;
  }
  lean_ctor_set(x_435, 0, x_372);
  lean_ctor_set(x_435, 1, x_426);
  lean_ctor_set(x_435, 2, x_427);
  lean_ctor_set(x_435, 3, x_429);
  if (lean_is_exclusive(x_372)) {
   lean_ctor_release(x_372, 0);
   lean_ctor_release(x_372, 1);
   lean_ctor_release(x_372, 2);
   lean_ctor_release(x_372, 3);
   x_436 = x_372;
  } else {
   lean_dec_ref(x_372);
   x_436 = lean_box(0);
  }
  lean_ctor_set_uint8(x_435, sizeof(void*)*4, x_434);
  if (lean_is_scalar(x_436)) {
   x_437 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_437 = x_436;
  }
  lean_ctor_set(x_437, 0, x_432);
  lean_ctor_set(x_437, 1, x_363);
  lean_ctor_set(x_437, 2, x_364);
  lean_ctor_set(x_437, 3, x_365);
  lean_ctor_set_uint8(x_437, sizeof(void*)*4, x_434);
  x_438 = 0;
  if (lean_is_scalar(x_428)) {
   x_439 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_439 = x_428;
  }
  lean_ctor_set(x_439, 0, x_435);
  lean_ctor_set(x_439, 1, x_430);
  lean_ctor_set(x_439, 2, x_431);
  lean_ctor_set(x_439, 3, x_437);
  lean_ctor_set_uint8(x_439, sizeof(void*)*4, x_438);
  return x_439;
  }
  else
  {
  lean_object* x_440; lean_object* x_441; lean_object* x_442; lean_object* x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; lean_object* x_448; uint8_t x_449; lean_object* x_450; uint8_t x_451; lean_object* x_452; 
  x_440 = lean_ctor_get(x_371, 1);
  lean_inc(x_440);
  x_441 = lean_ctor_get(x_371, 2);
  lean_inc(x_441);
  if (lean_is_exclusive(x_371)) {
   lean_ctor_release(x_371, 0);
   lean_ctor_release(x_371, 1);
   lean_ctor_release(x_371, 2);
   lean_ctor_release(x_371, 3);
   x_442 = x_371;
  } else {
   lean_dec_ref(x_371);
   x_442 = lean_box(0);
  }
  x_443 = lean_ctor_get(x_372, 0);
  lean_inc(x_443);
  x_444 = lean_ctor_get(x_372, 1);
  lean_inc(x_444);
  x_445 = lean_ctor_get(x_372, 2);
  lean_inc(x_445);
  x_446 = lean_ctor_get(x_372, 3);
  lean_inc(x_446);
  if (lean_is_exclusive(x_372)) {
   lean_ctor_release(x_372, 0);
   lean_ctor_release(x_372, 1);
   lean_ctor_release(x_372, 2);
   lean_ctor_release(x_372, 3);
   x_447 = x_372;
  } else {
   lean_dec_ref(x_372);
   x_447 = lean_box(0);
  }
  if (lean_is_scalar(x_447)) {
   x_448 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_448 = x_447;
  }
  lean_ctor_set(x_448, 0, x_443);
  lean_ctor_set(x_448, 1, x_444);
  lean_ctor_set(x_448, 2, x_445);
  lean_ctor_set(x_448, 3, x_446);
  lean_ctor_set_uint8(x_448, sizeof(void*)*4, x_425);
  x_449 = 0;
  if (lean_is_scalar(x_442)) {
   x_450 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_450 = x_442;
  }
  lean_ctor_set(x_450, 0, x_448);
  lean_ctor_set(x_450, 1, x_440);
  lean_ctor_set(x_450, 2, x_441);
  lean_ctor_set(x_450, 3, x_417);
  lean_ctor_set_uint8(x_450, sizeof(void*)*4, x_449);
  x_451 = 1;
  x_452 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_452, 0, x_450);
  lean_ctor_set(x_452, 1, x_363);
  lean_ctor_set(x_452, 2, x_364);
  lean_ctor_set(x_452, 3, x_365);
  lean_ctor_set_uint8(x_452, sizeof(void*)*4, x_451);
  return x_452;
  }
  }
  }
  }
  }
  }
  case 1:
  {
  uint8_t x_453; lean_object* x_454; 
  lean_dec(x_364);
  lean_dec(x_363);
  x_453 = 1;
  x_454 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_454, 0, x_362);
  lean_ctor_set(x_454, 1, x_2);
  lean_ctor_set(x_454, 2, x_3);
  lean_ctor_set(x_454, 3, x_365);
  lean_ctor_set_uint8(x_454, sizeof(void*)*4, x_453);
  return x_454;
  }
  default: 
  {
  uint8_t x_455; 
  x_455 = l_Std_RBNode_isRed___rarg(x_365);
  if (x_455 == 0)
  {
  lean_object* x_456; uint8_t x_457; lean_object* x_458; 
  x_456 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_365, x_2, x_3);
  x_457 = 1;
  x_458 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_458, 0, x_362);
  lean_ctor_set(x_458, 1, x_363);
  lean_ctor_set(x_458, 2, x_364);
  lean_ctor_set(x_458, 3, x_456);
  lean_ctor_set_uint8(x_458, sizeof(void*)*4, x_457);
  return x_458;
  }
  else
  {
  lean_object* x_459; lean_object* x_460; 
  x_459 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_365, x_2, x_3);
  x_460 = lean_ctor_get(x_459, 0);
  lean_inc(x_460);
  if (lean_obj_tag(x_460) == 0)
  {
  lean_object* x_461; 
  x_461 = lean_ctor_get(x_459, 3);
  lean_inc(x_461);
  if (lean_obj_tag(x_461) == 0)
  {
  lean_object* x_462; lean_object* x_463; lean_object* x_464; uint8_t x_465; lean_object* x_466; uint8_t x_467; lean_object* x_468; 
  x_462 = lean_ctor_get(x_459, 1);
  lean_inc(x_462);
  x_463 = lean_ctor_get(x_459, 2);
  lean_inc(x_463);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_464 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_464 = lean_box(0);
  }
  x_465 = 0;
  if (lean_is_scalar(x_464)) {
   x_466 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_466 = x_464;
  }
  lean_ctor_set(x_466, 0, x_461);
  lean_ctor_set(x_466, 1, x_462);
  lean_ctor_set(x_466, 2, x_463);
  lean_ctor_set(x_466, 3, x_461);
  lean_ctor_set_uint8(x_466, sizeof(void*)*4, x_465);
  x_467 = 1;
  x_468 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_468, 0, x_362);
  lean_ctor_set(x_468, 1, x_363);
  lean_ctor_set(x_468, 2, x_364);
  lean_ctor_set(x_468, 3, x_466);
  lean_ctor_set_uint8(x_468, sizeof(void*)*4, x_467);
  return x_468;
  }
  else
  {
  uint8_t x_469; 
  x_469 = lean_ctor_get_uint8(x_461, sizeof(void*)*4);
  if (x_469 == 0)
  {
  lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; uint8_t x_478; lean_object* x_479; lean_object* x_480; uint8_t x_481; lean_object* x_482; 
  x_470 = lean_ctor_get(x_459, 1);
  lean_inc(x_470);
  x_471 = lean_ctor_get(x_459, 2);
  lean_inc(x_471);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_472 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_472 = lean_box(0);
  }
  x_473 = lean_ctor_get(x_461, 0);
  lean_inc(x_473);
  x_474 = lean_ctor_get(x_461, 1);
  lean_inc(x_474);
  x_475 = lean_ctor_get(x_461, 2);
  lean_inc(x_475);
  x_476 = lean_ctor_get(x_461, 3);
  lean_inc(x_476);
  if (lean_is_exclusive(x_461)) {
   lean_ctor_release(x_461, 0);
   lean_ctor_release(x_461, 1);
   lean_ctor_release(x_461, 2);
   lean_ctor_release(x_461, 3);
   x_477 = x_461;
  } else {
   lean_dec_ref(x_461);
   x_477 = lean_box(0);
  }
  x_478 = 1;
  if (lean_is_scalar(x_477)) {
   x_479 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_479 = x_477;
  }
  lean_ctor_set(x_479, 0, x_362);
  lean_ctor_set(x_479, 1, x_363);
  lean_ctor_set(x_479, 2, x_364);
  lean_ctor_set(x_479, 3, x_460);
  lean_ctor_set_uint8(x_479, sizeof(void*)*4, x_478);
  if (lean_is_scalar(x_472)) {
   x_480 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_480 = x_472;
  }
  lean_ctor_set(x_480, 0, x_473);
  lean_ctor_set(x_480, 1, x_474);
  lean_ctor_set(x_480, 2, x_475);
  lean_ctor_set(x_480, 3, x_476);
  lean_ctor_set_uint8(x_480, sizeof(void*)*4, x_478);
  x_481 = 0;
  x_482 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_482, 0, x_479);
  lean_ctor_set(x_482, 1, x_470);
  lean_ctor_set(x_482, 2, x_471);
  lean_ctor_set(x_482, 3, x_480);
  lean_ctor_set_uint8(x_482, sizeof(void*)*4, x_481);
  return x_482;
  }
  else
  {
  lean_object* x_483; lean_object* x_484; lean_object* x_485; uint8_t x_486; lean_object* x_487; uint8_t x_488; lean_object* x_489; 
  x_483 = lean_ctor_get(x_459, 1);
  lean_inc(x_483);
  x_484 = lean_ctor_get(x_459, 2);
  lean_inc(x_484);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_485 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_485 = lean_box(0);
  }
  x_486 = 0;
  if (lean_is_scalar(x_485)) {
   x_487 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_487 = x_485;
  }
  lean_ctor_set(x_487, 0, x_460);
  lean_ctor_set(x_487, 1, x_483);
  lean_ctor_set(x_487, 2, x_484);
  lean_ctor_set(x_487, 3, x_461);
  lean_ctor_set_uint8(x_487, sizeof(void*)*4, x_486);
  x_488 = 1;
  x_489 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_489, 0, x_362);
  lean_ctor_set(x_489, 1, x_363);
  lean_ctor_set(x_489, 2, x_364);
  lean_ctor_set(x_489, 3, x_487);
  lean_ctor_set_uint8(x_489, sizeof(void*)*4, x_488);
  return x_489;
  }
  }
  }
  else
  {
  uint8_t x_490; 
  x_490 = lean_ctor_get_uint8(x_460, sizeof(void*)*4);
  if (x_490 == 0)
  {
  lean_object* x_491; lean_object* x_492; lean_object* x_493; lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; lean_object* x_498; lean_object* x_499; uint8_t x_500; lean_object* x_501; lean_object* x_502; uint8_t x_503; lean_object* x_504; 
  x_491 = lean_ctor_get(x_459, 1);
  lean_inc(x_491);
  x_492 = lean_ctor_get(x_459, 2);
  lean_inc(x_492);
  x_493 = lean_ctor_get(x_459, 3);
  lean_inc(x_493);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_494 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_494 = lean_box(0);
  }
  x_495 = lean_ctor_get(x_460, 0);
  lean_inc(x_495);
  x_496 = lean_ctor_get(x_460, 1);
  lean_inc(x_496);
  x_497 = lean_ctor_get(x_460, 2);
  lean_inc(x_497);
  x_498 = lean_ctor_get(x_460, 3);
  lean_inc(x_498);
  if (lean_is_exclusive(x_460)) {
   lean_ctor_release(x_460, 0);
   lean_ctor_release(x_460, 1);
   lean_ctor_release(x_460, 2);
   lean_ctor_release(x_460, 3);
   x_499 = x_460;
  } else {
   lean_dec_ref(x_460);
   x_499 = lean_box(0);
  }
  x_500 = 1;
  if (lean_is_scalar(x_499)) {
   x_501 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_501 = x_499;
  }
  lean_ctor_set(x_501, 0, x_362);
  lean_ctor_set(x_501, 1, x_363);
  lean_ctor_set(x_501, 2, x_364);
  lean_ctor_set(x_501, 3, x_495);
  lean_ctor_set_uint8(x_501, sizeof(void*)*4, x_500);
  if (lean_is_scalar(x_494)) {
   x_502 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_502 = x_494;
  }
  lean_ctor_set(x_502, 0, x_498);
  lean_ctor_set(x_502, 1, x_491);
  lean_ctor_set(x_502, 2, x_492);
  lean_ctor_set(x_502, 3, x_493);
  lean_ctor_set_uint8(x_502, sizeof(void*)*4, x_500);
  x_503 = 0;
  x_504 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_504, 0, x_501);
  lean_ctor_set(x_504, 1, x_496);
  lean_ctor_set(x_504, 2, x_497);
  lean_ctor_set(x_504, 3, x_502);
  lean_ctor_set_uint8(x_504, sizeof(void*)*4, x_503);
  return x_504;
  }
  else
  {
  lean_object* x_505; 
  x_505 = lean_ctor_get(x_459, 3);
  lean_inc(x_505);
  if (lean_obj_tag(x_505) == 0)
  {
  lean_object* x_506; lean_object* x_507; lean_object* x_508; uint8_t x_509; lean_object* x_510; uint8_t x_511; lean_object* x_512; 
  x_506 = lean_ctor_get(x_459, 1);
  lean_inc(x_506);
  x_507 = lean_ctor_get(x_459, 2);
  lean_inc(x_507);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_508 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_508 = lean_box(0);
  }
  x_509 = 0;
  if (lean_is_scalar(x_508)) {
   x_510 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_510 = x_508;
  }
  lean_ctor_set(x_510, 0, x_460);
  lean_ctor_set(x_510, 1, x_506);
  lean_ctor_set(x_510, 2, x_507);
  lean_ctor_set(x_510, 3, x_505);
  lean_ctor_set_uint8(x_510, sizeof(void*)*4, x_509);
  x_511 = 1;
  x_512 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_512, 0, x_362);
  lean_ctor_set(x_512, 1, x_363);
  lean_ctor_set(x_512, 2, x_364);
  lean_ctor_set(x_512, 3, x_510);
  lean_ctor_set_uint8(x_512, sizeof(void*)*4, x_511);
  return x_512;
  }
  else
  {
  uint8_t x_513; 
  x_513 = lean_ctor_get_uint8(x_505, sizeof(void*)*4);
  if (x_513 == 0)
  {
  lean_object* x_514; lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; lean_object* x_520; lean_object* x_521; uint8_t x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; uint8_t x_526; lean_object* x_527; 
  x_514 = lean_ctor_get(x_459, 1);
  lean_inc(x_514);
  x_515 = lean_ctor_get(x_459, 2);
  lean_inc(x_515);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_516 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_516 = lean_box(0);
  }
  x_517 = lean_ctor_get(x_505, 0);
  lean_inc(x_517);
  x_518 = lean_ctor_get(x_505, 1);
  lean_inc(x_518);
  x_519 = lean_ctor_get(x_505, 2);
  lean_inc(x_519);
  x_520 = lean_ctor_get(x_505, 3);
  lean_inc(x_520);
  if (lean_is_exclusive(x_505)) {
   lean_ctor_release(x_505, 0);
   lean_ctor_release(x_505, 1);
   lean_ctor_release(x_505, 2);
   lean_ctor_release(x_505, 3);
   x_521 = x_505;
  } else {
   lean_dec_ref(x_505);
   x_521 = lean_box(0);
  }
  x_522 = 1;
  lean_inc(x_460);
  if (lean_is_scalar(x_521)) {
   x_523 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_523 = x_521;
  }
  lean_ctor_set(x_523, 0, x_362);
  lean_ctor_set(x_523, 1, x_363);
  lean_ctor_set(x_523, 2, x_364);
  lean_ctor_set(x_523, 3, x_460);
  if (lean_is_exclusive(x_460)) {
   lean_ctor_release(x_460, 0);
   lean_ctor_release(x_460, 1);
   lean_ctor_release(x_460, 2);
   lean_ctor_release(x_460, 3);
   x_524 = x_460;
  } else {
   lean_dec_ref(x_460);
   x_524 = lean_box(0);
  }
  lean_ctor_set_uint8(x_523, sizeof(void*)*4, x_522);
  if (lean_is_scalar(x_524)) {
   x_525 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_525 = x_524;
  }
  lean_ctor_set(x_525, 0, x_517);
  lean_ctor_set(x_525, 1, x_518);
  lean_ctor_set(x_525, 2, x_519);
  lean_ctor_set(x_525, 3, x_520);
  lean_ctor_set_uint8(x_525, sizeof(void*)*4, x_522);
  x_526 = 0;
  if (lean_is_scalar(x_516)) {
   x_527 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_527 = x_516;
  }
  lean_ctor_set(x_527, 0, x_523);
  lean_ctor_set(x_527, 1, x_514);
  lean_ctor_set(x_527, 2, x_515);
  lean_ctor_set(x_527, 3, x_525);
  lean_ctor_set_uint8(x_527, sizeof(void*)*4, x_526);
  return x_527;
  }
  else
  {
  lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; lean_object* x_536; uint8_t x_537; lean_object* x_538; uint8_t x_539; lean_object* x_540; 
  x_528 = lean_ctor_get(x_459, 1);
  lean_inc(x_528);
  x_529 = lean_ctor_get(x_459, 2);
  lean_inc(x_529);
  if (lean_is_exclusive(x_459)) {
   lean_ctor_release(x_459, 0);
   lean_ctor_release(x_459, 1);
   lean_ctor_release(x_459, 2);
   lean_ctor_release(x_459, 3);
   x_530 = x_459;
  } else {
   lean_dec_ref(x_459);
   x_530 = lean_box(0);
  }
  x_531 = lean_ctor_get(x_460, 0);
  lean_inc(x_531);
  x_532 = lean_ctor_get(x_460, 1);
  lean_inc(x_532);
  x_533 = lean_ctor_get(x_460, 2);
  lean_inc(x_533);
  x_534 = lean_ctor_get(x_460, 3);
  lean_inc(x_534);
  if (lean_is_exclusive(x_460)) {
   lean_ctor_release(x_460, 0);
   lean_ctor_release(x_460, 1);
   lean_ctor_release(x_460, 2);
   lean_ctor_release(x_460, 3);
   x_535 = x_460;
  } else {
   lean_dec_ref(x_460);
   x_535 = lean_box(0);
  }
  if (lean_is_scalar(x_535)) {
   x_536 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_536 = x_535;
  }
  lean_ctor_set(x_536, 0, x_531);
  lean_ctor_set(x_536, 1, x_532);
  lean_ctor_set(x_536, 2, x_533);
  lean_ctor_set(x_536, 3, x_534);
  lean_ctor_set_uint8(x_536, sizeof(void*)*4, x_513);
  x_537 = 0;
  if (lean_is_scalar(x_530)) {
   x_538 = lean_alloc_ctor(1, 4, 1);
  } else {
   x_538 = x_530;
  }
  lean_ctor_set(x_538, 0, x_536);
  lean_ctor_set(x_538, 1, x_528);
  lean_ctor_set(x_538, 2, x_529);
  lean_ctor_set(x_538, 3, x_505);
  lean_ctor_set_uint8(x_538, sizeof(void*)*4, x_537);
  x_539 = 1;
  x_540 = lean_alloc_ctor(1, 4, 1);
  lean_ctor_set(x_540, 0, x_362);
  lean_ctor_set(x_540, 1, x_363);
  lean_ctor_set(x_540, 2, x_364);
  lean_ctor_set(x_540, 3, x_538);
  lean_ctor_set_uint8(x_540, sizeof(void*)*4, x_539);
  return x_540;
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_Std_RBNode_insert___at_Lean_CollectFVars_main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
  _start:
  {
  uint8_t x_4; 
  x_4 = l_Std_RBNode_isRed___rarg(x_1);
  if (x_4 == 0)
  {
  lean_object* x_5; 
  x_5 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_1, x_2, x_3);
  return x_5;
  }
  else
  {
  lean_object* x_6; lean_object* x_7; 
  x_6 = l_Std_RBNode_ins___at_Lean_CollectFVars_main___spec__2(x_1, x_2, x_3);
  x_7 = l_Std_RBNode_setBlack___rarg(x_6);
  return x_7;
  }
  }
  }
  LEAN_EXPORT lean_object* l_Lean_CollectFVars_main(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  switch (lean_obj_tag(x_1)) {
  case 1:
  {
  lean_object* x_3; uint8_t x_4; 
  x_3 = lean_ctor_get(x_1, 0);
  lean_inc(x_3);
  lean_dec(x_1);
  x_4 = !lean_is_exclusive(x_2);
  if (x_4 == 0)
  {
  lean_object* x_5; lean_object* x_6; lean_object* x_7; 
  x_5 = lean_ctor_get(x_2, 1);
  x_6 = lean_box(0);
  x_7 = l_Std_RBNode_insert___at_Lean_CollectFVars_main___spec__1(x_5, x_3, x_6);
  lean_ctor_set(x_2, 1, x_7);
  return x_2;
  }
  else
  {
  lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; 
  x_8 = lean_ctor_get(x_2, 0);
  x_9 = lean_ctor_get(x_2, 1);
  lean_inc(x_9);
  lean_inc(x_8);
  lean_dec(x_2);
  x_10 = lean_box(0);
  x_11 = l_Std_RBNode_insert___at_Lean_CollectFVars_main___spec__1(x_9, x_3, x_10);
  x_12 = lean_alloc_ctor(0, 2, 0);
  lean_ctor_set(x_12, 0, x_8);
  lean_ctor_set(x_12, 1, x_11);
  return x_12;
  }
  }
  case 5:
  {
  lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; 
  x_13 = lean_ctor_get(x_1, 0);
  lean_inc(x_13);
  x_14 = lean_ctor_get(x_1, 1);
  lean_inc(x_14);
  lean_dec(x_1);
  x_15 = l_Lean_CollectFVars_visit(x_13, x_2);
  x_16 = l_Lean_CollectFVars_visit(x_14, x_15);
  return x_16;
  }
  case 6:
  {
  lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; 
  x_17 = lean_ctor_get(x_1, 1);
  lean_inc(x_17);
  x_18 = lean_ctor_get(x_1, 2);
  lean_inc(x_18);
  lean_dec(x_1);
  x_19 = l_Lean_CollectFVars_visit(x_17, x_2);
  x_20 = l_Lean_CollectFVars_visit(x_18, x_19);
  return x_20;
  }
  case 7:
  {
  lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; 
  x_21 = lean_ctor_get(x_1, 1);
  lean_inc(x_21);
  x_22 = lean_ctor_get(x_1, 2);
  lean_inc(x_22);
  lean_dec(x_1);
  x_23 = l_Lean_CollectFVars_visit(x_21, x_2);
  x_24 = l_Lean_CollectFVars_visit(x_22, x_23);
  return x_24;
  }
  case 8:
  {
  lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; 
  x_25 = lean_ctor_get(x_1, 1);
  lean_inc(x_25);
  x_26 = lean_ctor_get(x_1, 2);
  lean_inc(x_26);
  x_27 = lean_ctor_get(x_1, 3);
  lean_inc(x_27);
  lean_dec(x_1);
  x_28 = l_Lean_CollectFVars_visit(x_25, x_2);
  x_29 = l_Lean_CollectFVars_visit(x_26, x_28);
  x_30 = l_Lean_CollectFVars_visit(x_27, x_29);
  return x_30;
  }
  case 10:
  {
  lean_object* x_31; lean_object* x_32; 
  x_31 = lean_ctor_get(x_1, 1);
  lean_inc(x_31);
  lean_dec(x_1);
  x_32 = l_Lean_CollectFVars_visit(x_31, x_2);
  return x_32;
  }
  case 11:
  {
  lean_object* x_33; lean_object* x_34; 
  x_33 = lean_ctor_get(x_1, 2);
  lean_inc(x_33);
  lean_dec(x_1);
  x_34 = l_Lean_CollectFVars_visit(x_33, x_2);
  return x_34;
  }
  default: 
  {
  lean_dec(x_1);
  return x_2;
  }
  }
  }
  }
  LEAN_EXPORT lean_object* l_List_elem___at_Lean_CollectFVars_visit___spec__2___boxed(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  uint8_t x_3; lean_object* x_4; 
  x_3 = l_List_elem___at_Lean_CollectFVars_visit___spec__2(x_1, x_2);
  lean_dec(x_2);
  lean_dec(x_1);
  x_4 = lean_box(x_3);
  return x_4;
  }
  }
  LEAN_EXPORT lean_object* l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  uint8_t x_3; lean_object* x_4; 
  x_3 = l_Std_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1(x_1, x_2);
  x_4 = lean_box(x_3);
  return x_4;
  }
  }
  LEAN_EXPORT lean_object* l_List_replace___at_Lean_CollectFVars_visit___spec__7___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
  _start:
  {
  lean_object* x_4; 
  x_4 = l_List_replace___at_Lean_CollectFVars_visit___spec__7(x_1, x_2, x_3);
  lean_dec(x_2);
  return x_4;
  }
  }
  LEAN_EXPORT lean_object* l_Lean_collectFVars(lean_object* x_1, lean_object* x_2) {
  _start:
  {
  lean_object* x_3; 
  x_3 = l_Lean_CollectFVars_main(x_2, x_1);
  return x_3;
  }
  }
  lean_object* initialize_Init(lean_object*);
  lean_object* initialize_Lean_Expr(lean_object*);
  static bool _G_initialized = false;
  LEAN_EXPORT lean_object* initialize_Lean_Util_CollectFVars(lean_object* w) {
  lean_object * res;
  if (_G_initialized) return lean_io_result_mk_ok(lean_box(0));
  _G_initialized = true;
  res = initialize_Init(lean_io_mk_world());
  if (lean_io_result_is_error(res)) return res;
  lean_dec_ref(res);
  res = initialize_Lean_Expr(lean_io_mk_world());
  if (lean_io_result_is_error(res)) return res;
  lean_dec_ref(res);
  l_Lean_CollectFVars_State_visitedExpr___default = _init_l_Lean_CollectFVars_State_visitedExpr___default();
  lean_mark_persistent(l_Lean_CollectFVars_State_visitedExpr___default);
  l_Lean_CollectFVars_State_fvarSet___default = _init_l_Lean_CollectFVars_State_fvarSet___default();
  lean_mark_persistent(l_Lean_CollectFVars_State_fvarSet___default);
  l_Lean_CollectFVars_instInhabitedState___closed__1 = _init_l_Lean_CollectFVars_instInhabitedState___closed__1();
  lean_mark_persistent(l_Lean_CollectFVars_instInhabitedState___closed__1);
  l_Lean_CollectFVars_instInhabitedState___closed__2 = _init_l_Lean_CollectFVars_instInhabitedState___closed__2();
  lean_mark_persistent(l_Lean_CollectFVars_instInhabitedState___closed__2);
  l_Lean_CollectFVars_instInhabitedState = _init_l_Lean_CollectFVars_instInhabitedState();
  lean_mark_persistent(l_Lean_CollectFVars_instInhabitedState);
  return lean_io_result_mk_ok(lean_box(0));
  }
  #ifdef __cplusplus
  }
  #endif
  