PA00AV

prime_pair_order_choose_append

Alpha v16 checked-use theorem · independently closed; not Stable

Constructively choose one unused inverse orbit, append its two directions adjacently, and preserve the orbit-closed nonendpoint prefix invariants.

Exact expanded PA statement

forall p n u v b c l r. p = S n -> ((~(p = 1) /\ forall wip_prime_left_choose_orbit_prime wip_prime_right_choose_orbit_prime. p = wip_prime_left_choose_orbit_prime * wip_prime_right_choose_orbit_prime -> wip_prime_left_choose_orbit_prime = 1 \/ wip_prime_right_choose_orbit_prime = 1)) -> (forall wip_index_choose_orbit_full_prefix. (exists wip_gap_choose_orbit_full_prefix_prefix_bound. wip_gap_choose_orbit_full_prefix_prefix_bound + S wip_index_choose_orbit_full_prefix = n) -> exists wip_mate_choose_orbit_full_prefix. ((((exists wip_beta_height_choose_orbit_full_prefix_decoded. wip_beta_height_choose_orbit_full_prefix_decoded + S (wip_mate_choose_orbit_full_prefix) = S ((S (wip_index_choose_orbit_full_prefix)) * v)) /\ exists wip_beta_quotient_choose_orbit_full_prefix_decoded. u = wip_beta_quotient_choose_orbit_full_prefix_decoded * S ((S (wip_index_choose_orbit_full_prefix)) * v) + (wip_mate_choose_orbit_full_prefix))) /\ ((exists wip_gap_choose_orbit_full_prefix_inverse_index_bound. wip_gap_choose_orbit_full_prefix_inverse_index_bound + S wip_index_choose_orbit_full_prefix = n) /\ ((exists wip_gap_choose_orbit_full_prefix_inverse_mate_bound. wip_gap_choose_orbit_full_prefix_inverse_mate_bound + S wip_mate_choose_orbit_full_prefix = n) /\ (exists wip_mod_left_choose_orbit_full_prefix_inverse_mod wip_mod_right_choose_orbit_full_prefix_inverse_mod. ((S wip_index_choose_orbit_full_prefix) * S wip_mate_choose_orbit_full_prefix) + p * wip_mod_left_choose_orbit_full_prefix_inverse_mod = 1 + p * wip_mod_right_choose_orbit_full_prefix_inverse_mod))))) -> n = S r -> (exists h. h + S (S (S l)) = n) -> (forall wpo_position_step_closed_before wpo_source_step_closed_before wpo_mate_step_closed_before. (exists wpo_gap_step_closed_before_position_bound. wpo_gap_step_closed_before_position_bound + S (wpo_position_step_closed_before) = l) -> (((exists wpo_beta_height_step_closed_before_source_entry. wpo_beta_height_step_closed_before_source_entry + S (wpo_source_step_closed_before) = S ((S (wpo_position_step_closed_before)) * c)) /\ exists wpo_beta_quotient_step_closed_before_source_entry. b = wpo_beta_quotient_step_closed_before_source_entry * S ((S (wpo_position_step_closed_before)) * c) + (wpo_source_step_closed_before))) -> (((exists wpo_beta_height_step_closed_before_inverse_entry. wpo_beta_height_step_closed_before_inverse_entry + S (wpo_mate_step_closed_before) = S ((S (wpo_source_step_closed_before)) * v)) /\ exists wpo_beta_quotient_step_closed_before_inverse_entry. u = wpo_beta_quotient_step_closed_before_inverse_entry * S ((S (wpo_source_step_closed_before)) * v) + (wpo_mate_step_closed_before))) -> exists wpo_mate_position_step_closed_before. ((exists wpo_gap_step_closed_before_mate_bound. wpo_gap_step_closed_before_mate_bound + S (wpo_mate_position_step_closed_before) = l) /\ (((exists wpo_beta_height_step_closed_before_mate_entry. wpo_beta_height_step_closed_before_mate_entry + S (wpo_mate_step_closed_before) = S ((S (wpo_mate_position_step_closed_before)) * c)) /\ exists wpo_beta_quotient_step_closed_before_mate_entry. b = wpo_beta_quotient_step_closed_before_mate_entry * S ((S (wpo_mate_position_step_closed_before)) * c) + (wpo_mate_step_closed_before))))) -> (forall wpo_position_step_nonendpoint_before wpo_value_step_nonendpoint_before. (exists wpo_gap_step_nonendpoint_before_position_bound. wpo_gap_step_nonendpoint_before_position_bound + S (wpo_position_step_nonendpoint_before) = l) -> (((exists wpo_beta_height_step_nonendpoint_before_entry. wpo_beta_height_step_nonendpoint_before_entry + S (wpo_value_step_nonendpoint_before) = S ((S (wpo_position_step_nonendpoint_before)) * c)) /\ exists wpo_beta_quotient_step_nonendpoint_before_entry. b = wpo_beta_quotient_step_nonendpoint_before_entry * S ((S (wpo_position_step_nonendpoint_before)) * c) + (wpo_value_step_nonendpoint_before))) -> (~(wpo_value_step_nonendpoint_before = 0) /\ ~((S wpo_value_step_nonendpoint_before) = n))) -> (exists z d i j. ((((((exists wpo_beta_height_step_trace_first. wpo_beta_height_step_trace_first + S (i) = S ((S (l)) * d)) /\ exists wpo_beta_quotient_step_trace_first. z = wpo_beta_quotient_step_trace_first * S ((S (l)) * d) + (i))) /\ ((((exists wpo_beta_height_step_trace_second. wpo_beta_height_step_trace_second + S (j) = S ((S (S (l))) * d)) /\ exists wpo_beta_quotient_step_trace_second. z = wpo_beta_quotient_step_trace_second * S ((S (S (l))) * d) + (j))) /\ (forall wpo_old_index_step_trace wpo_old_value_step_trace. (exists wpo_gap_step_trace_old_bound. wpo_gap_step_trace_old_bound + S (wpo_old_index_step_trace) = l) -> (((exists wpo_beta_height_step_trace_old_entry. wpo_beta_height_step_trace_old_entry + S (wpo_old_value_step_trace) = S ((S (wpo_old_index_step_trace)) * c)) /\ exists wpo_beta_quotient_step_trace_old_entry. b = wpo_beta_quotient_step_trace_old_entry * S ((S (wpo_old_index_step_trace)) * c) + (wpo_old_value_step_trace))) -> (((exists wpo_beta_height_step_trace_new_entry. wpo_beta_height_step_trace_new_entry + S (wpo_old_value_step_trace) = S ((S (wpo_old_index_step_trace)) * d)) /\ exists wpo_beta_quotient_step_trace_new_entry. z = wpo_beta_quotient_step_trace_new_entry * S ((S (wpo_old_index_step_trace)) * d) + (wpo_old_value_step_trace))))))) /\ ((exists wpo_gap_choose_orbit_source_bound. wpo_gap_choose_orbit_source_bound + S (i) = n) /\ ((~(i = 0) /\ ~((S i) = n)) /\ ((~(exists wpo_index_choose_orbit_source_omit_contains. ((exists wpo_gap_choose_orbit_source_omit_contains_bound. wpo_gap_choose_orbit_source_omit_contains_bound + S (wpo_index_choose_orbit_source_omit_contains) = l) /\ (((exists wpo_beta_height_choose_orbit_source_omit_contains_entry. wpo_beta_height_choose_orbit_source_omit_contains_entry + S (i) = S ((S (wpo_index_choose_orbit_source_omit_contains)) * c)) /\ exists wpo_beta_quotient_choose_orbit_source_omit_contains_entry. b = wpo_beta_quotient_choose_orbit_source_omit_contains_entry * S ((S (wpo_index_choose_orbit_source_omit_contains)) * c) + (i)))))) /\ ((((exists wpo_beta_height_choose_orbit_forward. wpo_beta_height_choose_orbit_forward + S (j) = S ((S (i)) * v)) /\ exists wpo_beta_quotient_choose_orbit_forward. u = wpo_beta_quotient_choose_orbit_forward * S ((S (i)) * v) + (j))) /\ ((exists wpo_gap_choose_orbit_mate_bound. wpo_gap_choose_orbit_mate_bound + S (j) = n) /\ ((~(j = 0) /\ ~((S j) = n)) /\ (~(i = j) /\ ((((exists wpo_beta_height_choose_orbit_back. wpo_beta_height_choose_orbit_back + S (i) = S ((S (j)) * v)) /\ exists wpo_beta_quotient_choose_orbit_back. u = wpo_beta_quotient_choose_orbit_back * S ((S (j)) * v) + (i))) /\ ((~(exists wpo_index_step_mate_omit_contains. ((exists wpo_gap_step_mate_omit_contains_bound. wpo_gap_step_mate_omit_contains_bound + S (wpo_index_step_mate_omit_contains) = l) /\ (((exists wpo_beta_height_step_mate_omit_contains_entry. wpo_beta_height_step_mate_omit_contains_entry + S (j) = S ((S (wpo_index_step_mate_omit_contains)) * c)) /\ exists wpo_beta_quotient_step_mate_omit_contains_entry. b = wpo_beta_quotient_step_mate_omit_contains_entry * S ((S (wpo_index_step_mate_omit_contains)) * c) + (j)))))) /\ ((forall wpo_position_step_closed_after wpo_source_step_closed_after wpo_mate_step_closed_after. (exists wpo_gap_step_closed_after_position_bound. wpo_gap_step_closed_after_position_bound + S (wpo_position_step_closed_after) = S (S l)) -> (((exists wpo_beta_height_step_closed_after_source_entry. wpo_beta_height_step_closed_after_source_entry + S (wpo_source_step_closed_after) = S ((S (wpo_position_step_closed_after)) * d)) /\ exists wpo_beta_quotient_step_closed_after_source_entry. z = wpo_beta_quotient_step_closed_after_source_entry * S ((S (wpo_position_step_closed_after)) * d) + (wpo_source_step_closed_after))) -> (((exists wpo_beta_height_step_closed_after_inverse_entry. wpo_beta_height_step_closed_after_inverse_entry + S (wpo_mate_step_closed_after) = S ((S (wpo_source_step_closed_after)) * v)) /\ exists wpo_beta_quotient_step_closed_after_inverse_entry. u = wpo_beta_quotient_step_closed_after_inverse_entry * S ((S (wpo_source_step_closed_after)) * v) + (wpo_mate_step_closed_after))) -> exists wpo_mate_position_step_closed_after. ((exists wpo_gap_step_closed_after_mate_bound. wpo_gap_step_closed_after_mate_bound + S (wpo_mate_position_step_closed_after) = S (S l)) /\ (((exists wpo_beta_height_step_closed_after_mate_entry. wpo_beta_height_step_closed_after_mate_entry + S (wpo_mate_step_closed_after) = S ((S (wpo_mate_position_step_closed_after)) * d)) /\ exists wpo_beta_quotient_step_closed_after_mate_entry. z = wpo_beta_quotient_step_closed_after_mate_entry * S ((S (wpo_mate_position_step_closed_after)) * d) + (wpo_mate_step_closed_after))))) /\ (forall wpo_position_step_nonendpoint_after wpo_value_step_nonendpoint_after. (exists wpo_gap_step_nonendpoint_after_position_bound. wpo_gap_step_nonendpoint_after_position_bound + S (wpo_position_step_nonendpoint_after) = S (S l)) -> (((exists wpo_beta_height_step_nonendpoint_after_entry. wpo_beta_height_step_nonendpoint_after_entry + S (wpo_value_step_nonendpoint_after) = S ((S (wpo_position_step_nonendpoint_after)) * d)) /\ exists wpo_beta_quotient_step_nonendpoint_after_entry. z = wpo_beta_quotient_step_nonendpoint_after_entry * S ((S (wpo_position_step_nonendpoint_after)) * d) + (wpo_value_step_nonendpoint_after))) -> (~(wpo_value_step_nonendpoint_after = 0) /\ ~((S wpo_value_step_nonendpoint_after) = n)))))))))))))))

Structural proof guide

Generated structural guide

Constructively choose one unused inverse orbit, append its two directions adjacently, and preserve the orbit-closed nonendpoint prefix invariants.

Use the direct prerequisites prime_choose_unused_nonendpoint_orbit, orbit_closed_unused_mate, beta_prefix_append_two_exists, beta_prefix_append_two_orbit_closed, beta_prefix_append_two_nonendpoint as previously established PA formulas.

The proof proceeds by case analysis (11), intermediate claims (5).

Referenced ingredients

Proof neighborhood

Direct dependencies

Direct dependents

Formal native tactic body

Dependencies are introduced as named hypotheses before line 1. Linked names are exact direct references. This Alpha-v16 checked-use theorem is independently kernel-checked when replayed; it is not a Stable theorem.

  1. 0001intro p
  2. 0002intro n
  3. 0003intro u
  4. 0004intro v
  5. 0005intro b
  6. 0006intro c
  7. 0007intro l
  8. 0008intro r
  9. 0009intro hpn
  10. 0010intro hp
  11. 0011intro hprefix
  12. 0012intro hnr
  13. 0013intro hshort
  14. 0014intro hclosed
  15. 0015intro hnonendpoint
  16. 0016have horbit : exists i j. ((exists wpo_gap_choose_orbit_source_bound. wpo_gap_choose_orbit_source_bound + S (i) = n) /\ ((~(i = 0) /\ ~((S i) = n)) /\ ((~(exists wpo_index_choose_orbit_source_omit_contains. ((exists wpo_gap_choose_orbit_source_omit_contains_bound. wpo_gap_choose_orbit_source_omit_contains_bound + S (wpo_index_choose_orbit_source_omit_contains) = l) /\ (((exists wpo_beta_height_choose_orbit_source_omit_contains_entry. wpo_beta_height_choose_orbit_source_omit_contains_entry + S (i) = S ((S (wpo_index_choose_orbit_source_omit_contains)) * c)) /\ exists wpo_beta_quotient_choose_orbit_source_omit_contains_entry. b = wpo_beta_quotient_choose_orbit_source_omit_contains_entry * S ((S (wpo_index_choose_orbit_source_omit_contains)) * c) + (i)))))) /\ ((((exists wpo_beta_height_choose_orbit_forward. wpo_beta_height_choose_orbit_forward + S (j) = S ((S (i)) * v)) /\ exists wpo_beta_quotient_choose_orbit_forward. u = wpo_beta_quotient_choose_orbit_forward * S ((S (i)) * v) + (j))) /\ ((exists wpo_gap_choose_orbit_mate_bound. wpo_gap_choose_orbit_mate_bound + S (j) = n) /\ ((~(j = 0) /\ ~((S j) = n)) /\ (~(i = j) /\ (((exists wpo_beta_height_choose_orbit_back. wpo_beta_height_choose_orbit_back + S (i) = S ((S (j)) * v)) /\ exists wpo_beta_quotient_choose_orbit_back. u = wpo_beta_quotient_choose_orbit_back * S ((S (j)) * v) + (i))))))))))
  17. 0017specialize prime_choose_unused_nonendpoint_orbit p
  18. 0018specialize prime_choose_unused_nonendpoint_orbit n
  19. 0019specialize prime_choose_unused_nonendpoint_orbit u
  20. 0020specialize prime_choose_unused_nonendpoint_orbit v
  21. 0021specialize prime_choose_unused_nonendpoint_orbit b
  22. 0022specialize prime_choose_unused_nonendpoint_orbit c
  23. 0023specialize prime_choose_unused_nonendpoint_orbit l
  24. 0024specialize prime_choose_unused_nonendpoint_orbit r
  25. 0025apply prime_choose_unused_nonendpoint_orbit
  26. 0026exact hpn
  27. 0027exact hp
  28. 0028exact hprefix
  29. 0029exact hnr
  30. 0030exact hshort
  31. 0031cases horbit
  32. 0032cases horbit_witness
  33. 0033cases horbit_witness_witness
  34. 0034cases horbit_witness_witness_right
  35. 0035cases horbit_witness_witness_right_right
  36. 0036cases horbit_witness_witness_right_right_right
  37. 0037cases horbit_witness_witness_right_right_right_right
  38. 0038cases horbit_witness_witness_right_right_right_right_right
  39. 0039cases horbit_witness_witness_right_right_right_right_right_right
  40. 0040have hmate_omit : ~(exists wpo_index_step_mate_omit_x1_contains. ((exists wpo_gap_step_mate_omit_x1_contains_bound. wpo_gap_step_mate_omit_x1_contains_bound + S (wpo_index_step_mate_omit_x1_contains) = l) /\ (((exists wpo_beta_height_step_mate_omit_x1_contains_entry. wpo_beta_height_step_mate_omit_x1_contains_entry + S (x1) = S ((S (wpo_index_step_mate_omit_x1_contains)) * c)) /\ exists wpo_beta_quotient_step_mate_omit_x1_contains_entry. b = wpo_beta_quotient_step_mate_omit_x1_contains_entry * S ((S (wpo_index_step_mate_omit_x1_contains)) * c) + (x1)))))
  41. 0041intro hmate_contains
  42. 0042specialize orbit_closed_unused_mate u
  43. 0043specialize orbit_closed_unused_mate v
  44. 0044specialize orbit_closed_unused_mate b
  45. 0045specialize orbit_closed_unused_mate c
  46. 0046specialize orbit_closed_unused_mate l
  47. 0047specialize orbit_closed_unused_mate x
  48. 0048specialize orbit_closed_unused_mate x1
  49. 0049apply orbit_closed_unused_mate
  50. 0050exact hclosed
  51. 0051exact horbit_witness_witness_right_right_left
  52. 0052exact horbit_witness_witness_right_right_right_right_right_right_right
  53. 0053exact hmate_contains
  54. 0054have happend : exists z d. ((((exists wpo_beta_height_step_append_x_first. wpo_beta_height_step_append_x_first + S (x) = S ((S (l)) * d)) /\ exists wpo_beta_quotient_step_append_x_first. z = wpo_beta_quotient_step_append_x_first * S ((S (l)) * d) + (x))) /\ ((((exists wpo_beta_height_step_append_x_second. wpo_beta_height_step_append_x_second + S (x1) = S ((S (S (l))) * d)) /\ exists wpo_beta_quotient_step_append_x_second. z = wpo_beta_quotient_step_append_x_second * S ((S (S (l))) * d) + (x1))) /\ (forall wpo_old_index_step_append_x wpo_old_value_step_append_x. (exists wpo_gap_step_append_x_old_bound. wpo_gap_step_append_x_old_bound + S (wpo_old_index_step_append_x) = l) -> (((exists wpo_beta_height_step_append_x_old_entry. wpo_beta_height_step_append_x_old_entry + S (wpo_old_value_step_append_x) = S ((S (wpo_old_index_step_append_x)) * c)) /\ exists wpo_beta_quotient_step_append_x_old_entry. b = wpo_beta_quotient_step_append_x_old_entry * S ((S (wpo_old_index_step_append_x)) * c) + (wpo_old_value_step_append_x))) -> (((exists wpo_beta_height_step_append_x_new_entry. wpo_beta_height_step_append_x_new_entry + S (wpo_old_value_step_append_x) = S ((S (wpo_old_index_step_append_x)) * d)) /\ exists wpo_beta_quotient_step_append_x_new_entry. z = wpo_beta_quotient_step_append_x_new_entry * S ((S (wpo_old_index_step_append_x)) * d) + (wpo_old_value_step_append_x))))))
  55. 0055specialize beta_prefix_append_two_exists b
  56. 0056specialize beta_prefix_append_two_exists c
  57. 0057specialize beta_prefix_append_two_exists l
  58. 0058specialize beta_prefix_append_two_exists x
  59. 0059specialize beta_prefix_append_two_exists x1
  60. 0060exact beta_prefix_append_two_exists
  61. 0061cases happend
  62. 0062cases happend_witness
  63. 0063have hclosed_after : forall wpo_position_step_closed_after_x wpo_source_step_closed_after_x wpo_mate_step_closed_after_x. (exists wpo_gap_step_closed_after_x_position_bound. wpo_gap_step_closed_after_x_position_bound + S (wpo_position_step_closed_after_x) = S (S l)) -> (((exists wpo_beta_height_step_closed_after_x_source_entry. wpo_beta_height_step_closed_after_x_source_entry + S (wpo_source_step_closed_after_x) = S ((S (wpo_position_step_closed_after_x)) * x3)) /\ exists wpo_beta_quotient_step_closed_after_x_source_entry. x2 = wpo_beta_quotient_step_closed_after_x_source_entry * S ((S (wpo_position_step_closed_after_x)) * x3) + (wpo_source_step_closed_after_x))) -> (((exists wpo_beta_height_step_closed_after_x_inverse_entry. wpo_beta_height_step_closed_after_x_inverse_entry + S (wpo_mate_step_closed_after_x) = S ((S (wpo_source_step_closed_after_x)) * v)) /\ exists wpo_beta_quotient_step_closed_after_x_inverse_entry. u = wpo_beta_quotient_step_closed_after_x_inverse_entry * S ((S (wpo_source_step_closed_after_x)) * v) + (wpo_mate_step_closed_after_x))) -> exists wpo_mate_position_step_closed_after_x. ((exists wpo_gap_step_closed_after_x_mate_bound. wpo_gap_step_closed_after_x_mate_bound + S (wpo_mate_position_step_closed_after_x) = S (S l)) /\ (((exists wpo_beta_height_step_closed_after_x_mate_entry. wpo_beta_height_step_closed_after_x_mate_entry + S (wpo_mate_step_closed_after_x) = S ((S (wpo_mate_position_step_closed_after_x)) * x3)) /\ exists wpo_beta_quotient_step_closed_after_x_mate_entry. x2 = wpo_beta_quotient_step_closed_after_x_mate_entry * S ((S (wpo_mate_position_step_closed_after_x)) * x3) + (wpo_mate_step_closed_after_x))))
  64. 0064specialize beta_prefix_append_two_orbit_closed u
  65. 0065specialize beta_prefix_append_two_orbit_closed v
  66. 0066specialize beta_prefix_append_two_orbit_closed b
  67. 0067specialize beta_prefix_append_two_orbit_closed c
  68. 0068specialize beta_prefix_append_two_orbit_closed x2
  69. 0069specialize beta_prefix_append_two_orbit_closed x3
  70. 0070specialize beta_prefix_append_two_orbit_closed l
  71. 0071specialize beta_prefix_append_two_orbit_closed x
  72. 0072specialize beta_prefix_append_two_orbit_closed x1
  73. 0073apply beta_prefix_append_two_orbit_closed
  74. 0074exact happend_witness_witness
  75. 0075exact hclosed
  76. 0076exact horbit_witness_witness_right_right_right_left
  77. 0077exact horbit_witness_witness_right_right_right_right_right_right_right
  78. 0078have hnonendpoint_after : forall wpo_position_step_nonendpoint_after_x wpo_value_step_nonendpoint_after_x. (exists wpo_gap_step_nonendpoint_after_x_position_bound. wpo_gap_step_nonendpoint_after_x_position_bound + S (wpo_position_step_nonendpoint_after_x) = S (S l)) -> (((exists wpo_beta_height_step_nonendpoint_after_x_entry. wpo_beta_height_step_nonendpoint_after_x_entry + S (wpo_value_step_nonendpoint_after_x) = S ((S (wpo_position_step_nonendpoint_after_x)) * x3)) /\ exists wpo_beta_quotient_step_nonendpoint_after_x_entry. x2 = wpo_beta_quotient_step_nonendpoint_after_x_entry * S ((S (wpo_position_step_nonendpoint_after_x)) * x3) + (wpo_value_step_nonendpoint_after_x))) -> (~(wpo_value_step_nonendpoint_after_x = 0) /\ ~((S wpo_value_step_nonendpoint_after_x) = n))
  79. 0079specialize beta_prefix_append_two_nonendpoint b
  80. 0080specialize beta_prefix_append_two_nonendpoint c
  81. 0081specialize beta_prefix_append_two_nonendpoint x2
  82. 0082specialize beta_prefix_append_two_nonendpoint x3
  83. 0083specialize beta_prefix_append_two_nonendpoint l
  84. 0084specialize beta_prefix_append_two_nonendpoint n
  85. 0085specialize beta_prefix_append_two_nonendpoint x
  86. 0086specialize beta_prefix_append_two_nonendpoint x1
  87. 0087apply beta_prefix_append_two_nonendpoint
  88. 0088exact happend_witness_witness
  89. 0089exact hnonendpoint
  90. 0090exact horbit_witness_witness_right_left
  91. 0091exact horbit_witness_witness_right_right_right_right_right_left
  92. 0092exists x2
  93. 0093exists x3
  94. 0094exists x
  95. 0095exists x1
  96. 0096split
  97. 0097exact happend_witness_witness
  98. 0098split
  99. 0099exact horbit_witness_witness_left
  100. 0100split
  101. 0101exact horbit_witness_witness_right_left
  102. 0102split
  103. 0103exact horbit_witness_witness_right_right_left
  104. 0104split
  105. 0105exact horbit_witness_witness_right_right_right_left
  106. 0106split
  107. 0107exact horbit_witness_witness_right_right_right_right_left
  108. 0108split
  109. 0109exact horbit_witness_witness_right_right_right_right_right_left
  110. 0110split
  111. 0111exact horbit_witness_witness_right_right_right_right_right_right_left
  112. 0112split
  113. 0113exact horbit_witness_witness_right_right_right_right_right_right_right
  114. 0114split
  115. 0115exact hmate_omit
  116. 0116split
  117. 0117exact hclosed_after
  118. 0118exact hnonendpoint_after