BT00TC

choose_functional

Alpha body-checked ยท checked-use disabled

The recurrence-defined Choose relation is functional.

Exact expanded PA statement

forall n k x y. (((exists bcf_lt_gap_bclf_left_out_of_range. bcf_lt_gap_bclf_left_out_of_range + S (n) = k) /\ x = 0) \/ ((exists bcf_le_gap_bclf_left_in_range. bcf_le_gap_bclf_left_in_range + (k) = n) /\ (exists bcf_row_code_code_bclf_left bcf_row_code_scale_bclf_left bcf_row_scale_code_bclf_left bcf_row_scale_scale_bclf_left bcf_row_code_bclf_left bcf_row_scale_bclf_left. ((forall bcf_row_index_bclf_left_table. (exists bcf_lt_gap_bclf_left_table_row_bound. bcf_lt_gap_bclf_left_table_row_bound + S (bcf_row_index_bclf_left_table) = S (n)) -> exists bcf_row_code_bclf_left_table bcf_row_scale_bclf_left_table. ((((exists bcf_height_bclf_left_table_decoded_row_code. bcf_height_bclf_left_table_decoded_row_code + S (bcf_row_code_bclf_left_table) = S ((S (bcf_row_index_bclf_left_table)) * bcf_row_code_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_table_decoded_row_code. bcf_row_code_code_bclf_left = bcf_quotient_bclf_left_table_decoded_row_code * S ((S (bcf_row_index_bclf_left_table)) * bcf_row_code_scale_bclf_left) + (bcf_row_code_bclf_left_table))) /\ ((((exists bcf_height_bclf_left_table_decoded_row_scale. bcf_height_bclf_left_table_decoded_row_scale + S (bcf_row_scale_bclf_left_table) = S ((S (bcf_row_index_bclf_left_table)) * bcf_row_scale_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_table_decoded_row_scale. bcf_row_scale_code_bclf_left = bcf_quotient_bclf_left_table_decoded_row_scale * S ((S (bcf_row_index_bclf_left_table)) * bcf_row_scale_scale_bclf_left) + (bcf_row_scale_bclf_left_table))) /\ ((bcf_row_index_bclf_left_table = 0 /\ (forall bcf_index_bclf_left_table_zero_row. (exists bcf_lt_gap_bclf_left_table_zero_row_bound. bcf_lt_gap_bclf_left_table_zero_row_bound + S (bcf_index_bclf_left_table_zero_row) = S (n)) -> exists bcf_value_bclf_left_table_zero_row. ((((exists bcf_height_bclf_left_table_zero_row_entry. bcf_height_bclf_left_table_zero_row_entry + S (bcf_value_bclf_left_table_zero_row) = S ((S (bcf_index_bclf_left_table_zero_row)) * bcf_row_scale_bclf_left_table)) /\ exists bcf_quotient_bclf_left_table_zero_row_entry. bcf_row_code_bclf_left_table = bcf_quotient_bclf_left_table_zero_row_entry * S ((S (bcf_index_bclf_left_table_zero_row)) * bcf_row_scale_bclf_left_table) + (bcf_value_bclf_left_table_zero_row))) /\ ((bcf_index_bclf_left_table_zero_row = 0 /\ bcf_value_bclf_left_table_zero_row = 1) \/ exists bcf_predecessor_bclf_left_table_zero_row. bcf_index_bclf_left_table_zero_row = S bcf_predecessor_bclf_left_table_zero_row /\ bcf_value_bclf_left_table_zero_row = 0)))) \/ exists bcf_predecessor_bclf_left_table bcf_previous_code_bclf_left_table bcf_previous_scale_bclf_left_table. bcf_row_index_bclf_left_table = S bcf_predecessor_bclf_left_table /\ ((((exists bcf_height_bclf_left_table_decoded_previous_code. bcf_height_bclf_left_table_decoded_previous_code + S (bcf_previous_code_bclf_left_table) = S ((S (bcf_predecessor_bclf_left_table)) * bcf_row_code_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_table_decoded_previous_code. bcf_row_code_code_bclf_left = bcf_quotient_bclf_left_table_decoded_previous_code * S ((S (bcf_predecessor_bclf_left_table)) * bcf_row_code_scale_bclf_left) + (bcf_previous_code_bclf_left_table))) /\ ((((exists bcf_height_bclf_left_table_decoded_previous_scale. bcf_height_bclf_left_table_decoded_previous_scale + S (bcf_previous_scale_bclf_left_table) = S ((S (bcf_predecessor_bclf_left_table)) * bcf_row_scale_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_table_decoded_previous_scale. bcf_row_scale_code_bclf_left = bcf_quotient_bclf_left_table_decoded_previous_scale * S ((S (bcf_predecessor_bclf_left_table)) * bcf_row_scale_scale_bclf_left) + (bcf_previous_scale_bclf_left_table))) /\ (forall bcf_index_bclf_left_table_row_step. (exists bcf_lt_gap_bclf_left_table_row_step_bound. bcf_lt_gap_bclf_left_table_row_step_bound + S (bcf_index_bclf_left_table_row_step) = S (n)) -> exists bcf_value_bclf_left_table_row_step. ((((exists bcf_height_bclf_left_table_row_step_entry. bcf_height_bclf_left_table_row_step_entry + S (bcf_value_bclf_left_table_row_step) = S ((S (bcf_index_bclf_left_table_row_step)) * bcf_row_scale_bclf_left_table)) /\ exists bcf_quotient_bclf_left_table_row_step_entry. bcf_row_code_bclf_left_table = bcf_quotient_bclf_left_table_row_step_entry * S ((S (bcf_index_bclf_left_table_row_step)) * bcf_row_scale_bclf_left_table) + (bcf_value_bclf_left_table_row_step))) /\ ((bcf_index_bclf_left_table_row_step = 0 /\ bcf_value_bclf_left_table_row_step = 1) \/ exists bcf_predecessor_bclf_left_table_row_step bcf_left_bclf_left_table_row_step bcf_right_bclf_left_table_row_step. bcf_index_bclf_left_table_row_step = S bcf_predecessor_bclf_left_table_row_step /\ ((((exists bcf_height_bclf_left_table_row_step_previous_left. bcf_height_bclf_left_table_row_step_previous_left + S (bcf_left_bclf_left_table_row_step) = S ((S (bcf_predecessor_bclf_left_table_row_step)) * bcf_previous_scale_bclf_left_table)) /\ exists bcf_quotient_bclf_left_table_row_step_previous_left. bcf_previous_code_bclf_left_table = bcf_quotient_bclf_left_table_row_step_previous_left * S ((S (bcf_predecessor_bclf_left_table_row_step)) * bcf_previous_scale_bclf_left_table) + (bcf_left_bclf_left_table_row_step))) /\ ((((exists bcf_height_bclf_left_table_row_step_previous_right. bcf_height_bclf_left_table_row_step_previous_right + S (bcf_right_bclf_left_table_row_step) = S ((S (S (bcf_predecessor_bclf_left_table_row_step))) * bcf_previous_scale_bclf_left_table)) /\ exists bcf_quotient_bclf_left_table_row_step_previous_right. bcf_previous_code_bclf_left_table = bcf_quotient_bclf_left_table_row_step_previous_right * S ((S (S (bcf_predecessor_bclf_left_table_row_step))) * bcf_previous_scale_bclf_left_table) + (bcf_right_bclf_left_table_row_step))) /\ bcf_value_bclf_left_table_row_step = bcf_left_bclf_left_table_row_step + bcf_right_bclf_left_table_row_step))))))))))) /\ ((((exists bcf_height_bclf_left_decoded_row_code. bcf_height_bclf_left_decoded_row_code + S (bcf_row_code_bclf_left) = S ((S (n)) * bcf_row_code_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_decoded_row_code. bcf_row_code_code_bclf_left = bcf_quotient_bclf_left_decoded_row_code * S ((S (n)) * bcf_row_code_scale_bclf_left) + (bcf_row_code_bclf_left))) /\ ((((exists bcf_height_bclf_left_decoded_row_scale. bcf_height_bclf_left_decoded_row_scale + S (bcf_row_scale_bclf_left) = S ((S (n)) * bcf_row_scale_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_decoded_row_scale. bcf_row_scale_code_bclf_left = bcf_quotient_bclf_left_decoded_row_scale * S ((S (n)) * bcf_row_scale_scale_bclf_left) + (bcf_row_scale_bclf_left))) /\ (((exists bcf_height_bclf_left_decoded_value. bcf_height_bclf_left_decoded_value + S (x) = S ((S (k)) * bcf_row_scale_bclf_left)) /\ exists bcf_quotient_bclf_left_decoded_value. bcf_row_code_bclf_left = bcf_quotient_bclf_left_decoded_value * S ((S (k)) * bcf_row_scale_bclf_left) + (x))))))))) -> (((exists bcf_lt_gap_bclf_right_out_of_range. bcf_lt_gap_bclf_right_out_of_range + S (n) = k) /\ y = 0) \/ ((exists bcf_le_gap_bclf_right_in_range. bcf_le_gap_bclf_right_in_range + (k) = n) /\ (exists bcf_row_code_code_bclf_right bcf_row_code_scale_bclf_right bcf_row_scale_code_bclf_right bcf_row_scale_scale_bclf_right bcf_row_code_bclf_right bcf_row_scale_bclf_right. ((forall bcf_row_index_bclf_right_table. (exists bcf_lt_gap_bclf_right_table_row_bound. bcf_lt_gap_bclf_right_table_row_bound + S (bcf_row_index_bclf_right_table) = S (n)) -> exists bcf_row_code_bclf_right_table bcf_row_scale_bclf_right_table. ((((exists bcf_height_bclf_right_table_decoded_row_code. bcf_height_bclf_right_table_decoded_row_code + S (bcf_row_code_bclf_right_table) = S ((S (bcf_row_index_bclf_right_table)) * bcf_row_code_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_table_decoded_row_code. bcf_row_code_code_bclf_right = bcf_quotient_bclf_right_table_decoded_row_code * S ((S (bcf_row_index_bclf_right_table)) * bcf_row_code_scale_bclf_right) + (bcf_row_code_bclf_right_table))) /\ ((((exists bcf_height_bclf_right_table_decoded_row_scale. bcf_height_bclf_right_table_decoded_row_scale + S (bcf_row_scale_bclf_right_table) = S ((S (bcf_row_index_bclf_right_table)) * bcf_row_scale_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_table_decoded_row_scale. bcf_row_scale_code_bclf_right = bcf_quotient_bclf_right_table_decoded_row_scale * S ((S (bcf_row_index_bclf_right_table)) * bcf_row_scale_scale_bclf_right) + (bcf_row_scale_bclf_right_table))) /\ ((bcf_row_index_bclf_right_table = 0 /\ (forall bcf_index_bclf_right_table_zero_row. (exists bcf_lt_gap_bclf_right_table_zero_row_bound. bcf_lt_gap_bclf_right_table_zero_row_bound + S (bcf_index_bclf_right_table_zero_row) = S (n)) -> exists bcf_value_bclf_right_table_zero_row. ((((exists bcf_height_bclf_right_table_zero_row_entry. bcf_height_bclf_right_table_zero_row_entry + S (bcf_value_bclf_right_table_zero_row) = S ((S (bcf_index_bclf_right_table_zero_row)) * bcf_row_scale_bclf_right_table)) /\ exists bcf_quotient_bclf_right_table_zero_row_entry. bcf_row_code_bclf_right_table = bcf_quotient_bclf_right_table_zero_row_entry * S ((S (bcf_index_bclf_right_table_zero_row)) * bcf_row_scale_bclf_right_table) + (bcf_value_bclf_right_table_zero_row))) /\ ((bcf_index_bclf_right_table_zero_row = 0 /\ bcf_value_bclf_right_table_zero_row = 1) \/ exists bcf_predecessor_bclf_right_table_zero_row. bcf_index_bclf_right_table_zero_row = S bcf_predecessor_bclf_right_table_zero_row /\ bcf_value_bclf_right_table_zero_row = 0)))) \/ exists bcf_predecessor_bclf_right_table bcf_previous_code_bclf_right_table bcf_previous_scale_bclf_right_table. bcf_row_index_bclf_right_table = S bcf_predecessor_bclf_right_table /\ ((((exists bcf_height_bclf_right_table_decoded_previous_code. bcf_height_bclf_right_table_decoded_previous_code + S (bcf_previous_code_bclf_right_table) = S ((S (bcf_predecessor_bclf_right_table)) * bcf_row_code_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_table_decoded_previous_code. bcf_row_code_code_bclf_right = bcf_quotient_bclf_right_table_decoded_previous_code * S ((S (bcf_predecessor_bclf_right_table)) * bcf_row_code_scale_bclf_right) + (bcf_previous_code_bclf_right_table))) /\ ((((exists bcf_height_bclf_right_table_decoded_previous_scale. bcf_height_bclf_right_table_decoded_previous_scale + S (bcf_previous_scale_bclf_right_table) = S ((S (bcf_predecessor_bclf_right_table)) * bcf_row_scale_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_table_decoded_previous_scale. bcf_row_scale_code_bclf_right = bcf_quotient_bclf_right_table_decoded_previous_scale * S ((S (bcf_predecessor_bclf_right_table)) * bcf_row_scale_scale_bclf_right) + (bcf_previous_scale_bclf_right_table))) /\ (forall bcf_index_bclf_right_table_row_step. (exists bcf_lt_gap_bclf_right_table_row_step_bound. bcf_lt_gap_bclf_right_table_row_step_bound + S (bcf_index_bclf_right_table_row_step) = S (n)) -> exists bcf_value_bclf_right_table_row_step. ((((exists bcf_height_bclf_right_table_row_step_entry. bcf_height_bclf_right_table_row_step_entry + S (bcf_value_bclf_right_table_row_step) = S ((S (bcf_index_bclf_right_table_row_step)) * bcf_row_scale_bclf_right_table)) /\ exists bcf_quotient_bclf_right_table_row_step_entry. bcf_row_code_bclf_right_table = bcf_quotient_bclf_right_table_row_step_entry * S ((S (bcf_index_bclf_right_table_row_step)) * bcf_row_scale_bclf_right_table) + (bcf_value_bclf_right_table_row_step))) /\ ((bcf_index_bclf_right_table_row_step = 0 /\ bcf_value_bclf_right_table_row_step = 1) \/ exists bcf_predecessor_bclf_right_table_row_step bcf_left_bclf_right_table_row_step bcf_right_bclf_right_table_row_step. bcf_index_bclf_right_table_row_step = S bcf_predecessor_bclf_right_table_row_step /\ ((((exists bcf_height_bclf_right_table_row_step_previous_left. bcf_height_bclf_right_table_row_step_previous_left + S (bcf_left_bclf_right_table_row_step) = S ((S (bcf_predecessor_bclf_right_table_row_step)) * bcf_previous_scale_bclf_right_table)) /\ exists bcf_quotient_bclf_right_table_row_step_previous_left. bcf_previous_code_bclf_right_table = bcf_quotient_bclf_right_table_row_step_previous_left * S ((S (bcf_predecessor_bclf_right_table_row_step)) * bcf_previous_scale_bclf_right_table) + (bcf_left_bclf_right_table_row_step))) /\ ((((exists bcf_height_bclf_right_table_row_step_previous_right. bcf_height_bclf_right_table_row_step_previous_right + S (bcf_right_bclf_right_table_row_step) = S ((S (S (bcf_predecessor_bclf_right_table_row_step))) * bcf_previous_scale_bclf_right_table)) /\ exists bcf_quotient_bclf_right_table_row_step_previous_right. bcf_previous_code_bclf_right_table = bcf_quotient_bclf_right_table_row_step_previous_right * S ((S (S (bcf_predecessor_bclf_right_table_row_step))) * bcf_previous_scale_bclf_right_table) + (bcf_right_bclf_right_table_row_step))) /\ bcf_value_bclf_right_table_row_step = bcf_left_bclf_right_table_row_step + bcf_right_bclf_right_table_row_step))))))))))) /\ ((((exists bcf_height_bclf_right_decoded_row_code. bcf_height_bclf_right_decoded_row_code + S (bcf_row_code_bclf_right) = S ((S (n)) * bcf_row_code_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_decoded_row_code. bcf_row_code_code_bclf_right = bcf_quotient_bclf_right_decoded_row_code * S ((S (n)) * bcf_row_code_scale_bclf_right) + (bcf_row_code_bclf_right))) /\ ((((exists bcf_height_bclf_right_decoded_row_scale. bcf_height_bclf_right_decoded_row_scale + S (bcf_row_scale_bclf_right) = S ((S (n)) * bcf_row_scale_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_decoded_row_scale. bcf_row_scale_code_bclf_right = bcf_quotient_bclf_right_decoded_row_scale * S ((S (n)) * bcf_row_scale_scale_bclf_right) + (bcf_row_scale_bclf_right))) /\ (((exists bcf_height_bclf_right_decoded_value. bcf_height_bclf_right_decoded_value + S (y) = S ((S (k)) * bcf_row_scale_bclf_right)) /\ exists bcf_quotient_bclf_right_decoded_value. bcf_row_code_bclf_right = bcf_quotient_bclf_right_decoded_value * S ((S (k)) * bcf_row_scale_bclf_right) + (y))))))))) -> x = y

Structural proof guide

The recurrence-defined Choose relation is functional.

Direct prerequisites: lt_not_le, le_refl, succ_le_succ, beta_pascal_table_row_pointwise_functional. The authored body proceeds by case analysis (27), intermediate claims (3).

Proof neighborhood

Direct dependencies

Direct dependents

Formal native tactic body

Dependencies are hypotheses of this body receipt. The focused endpoint audits separately check the complete empty-context certificates.

  1. 0001intro n
  2. 0002intro k
  3. 0003intro x
  4. 0004intro y
  5. 0005intro hleft
  6. 0006intro hright
  7. 0007cases hleft
  8. 0008cases hleft_left
  9. 0009cases hright
  10. 0010cases hright_left
  11. 0011trans 0
  12. 0012exact hleft_left_right
  13. 0013symm
  14. 0014exact hright_left_right
  15. 0015cases hright_right
  16. 0016exfalso
  17. 0017specialize lt_not_le n
  18. 0018specialize lt_not_le k
  19. 0019apply lt_not_le
  20. 0020exact hleft_left_left
  21. 0021exact hright_right_left
  22. 0022cases hleft_right
  23. 0023cases hright
  24. 0024cases hright_left
  25. 0025exfalso
  26. 0026specialize lt_not_le n
  27. 0027specialize lt_not_le k
  28. 0028apply lt_not_le
  29. 0029exact hright_left_left
  30. 0030exact hleft_right_left
  31. 0031cases hright_right
  32. 0032cases hleft_right_right
  33. 0033cases hleft_right_right_witness
  34. 0034cases hleft_right_right_witness_witness
  35. 0035cases hleft_right_right_witness_witness_witness
  36. 0036cases hleft_right_right_witness_witness_witness_witness
  37. 0037cases hleft_right_right_witness_witness_witness_witness_witness
  38. 0038cases hleft_right_right_witness_witness_witness_witness_witness_witness
  39. 0039cases hleft_right_right_witness_witness_witness_witness_witness_witness_right
  40. 0040cases hleft_right_right_witness_witness_witness_witness_witness_witness_right_right
  41. 0041cases hright_right_right
  42. 0042cases hright_right_right_witness
  43. 0043cases hright_right_right_witness_witness
  44. 0044cases hright_right_right_witness_witness_witness
  45. 0045cases hright_right_right_witness_witness_witness_witness
  46. 0046cases hright_right_right_witness_witness_witness_witness_witness
  47. 0047cases hright_right_right_witness_witness_witness_witness_witness_witness
  48. 0048cases hright_right_right_witness_witness_witness_witness_witness_witness_right
  49. 0049cases hright_right_right_witness_witness_witness_witness_witness_witness_right_right
  50. 0050have hrow_bound : exists bcf_lt_gap_bclf_row_bound. bcf_lt_gap_bclf_row_bound + S (n) = S n
  51. 0051specialize le_refl (S n)
  52. 0052exact le_refl
  53. 0053have hinner_bound : exists bcf_lt_gap_bclf_inner_bound. bcf_lt_gap_bclf_inner_bound + S (k) = S n
  54. 0054specialize succ_le_succ k
  55. 0055specialize succ_le_succ n
  56. 0056apply succ_le_succ
  57. 0057exact hleft_right_left
  58. 0058have hagree : forall bcf_index_bclf_semantic_agreement bcf_left_value_bclf_semantic_agreement bcf_right_value_bclf_semantic_agreement. (exists bcf_lt_gap_bclf_semantic_agreement_left_bound. bcf_lt_gap_bclf_semantic_agreement_left_bound + S (bcf_index_bclf_semantic_agreement) = S n) -> (exists bcf_lt_gap_bclf_semantic_agreement_right_bound. bcf_lt_gap_bclf_semantic_agreement_right_bound + S (bcf_index_bclf_semantic_agreement) = S n) -> (((exists bcf_height_bclf_semantic_agreement_left_entry. bcf_height_bclf_semantic_agreement_left_entry + S (bcf_left_value_bclf_semantic_agreement) = S ((S (bcf_index_bclf_semantic_agreement)) * x6)) /\ exists bcf_quotient_bclf_semantic_agreement_left_entry. x5 = bcf_quotient_bclf_semantic_agreement_left_entry * S ((S (bcf_index_bclf_semantic_agreement)) * x6) + (bcf_left_value_bclf_semantic_agreement))) -> (((exists bcf_height_bclf_semantic_agreement_right_entry. bcf_height_bclf_semantic_agreement_right_entry + S (bcf_right_value_bclf_semantic_agreement) = S ((S (bcf_index_bclf_semantic_agreement)) * x12)) /\ exists bcf_quotient_bclf_semantic_agreement_right_entry. x11 = bcf_quotient_bclf_semantic_agreement_right_entry * S ((S (bcf_index_bclf_semantic_agreement)) * x12) + (bcf_right_value_bclf_semantic_agreement))) -> bcf_left_value_bclf_semantic_agreement = bcf_right_value_bclf_semantic_agreement
  59. 0059specialize beta_pascal_table_row_pointwise_functional x1
  60. 0060specialize beta_pascal_table_row_pointwise_functional x2
  61. 0061specialize beta_pascal_table_row_pointwise_functional x3
  62. 0062specialize beta_pascal_table_row_pointwise_functional x4
  63. 0063specialize beta_pascal_table_row_pointwise_functional (S n)
  64. 0064specialize beta_pascal_table_row_pointwise_functional (S n)
  65. 0065specialize beta_pascal_table_row_pointwise_functional x7
  66. 0066specialize beta_pascal_table_row_pointwise_functional x8
  67. 0067specialize beta_pascal_table_row_pointwise_functional x9
  68. 0068specialize beta_pascal_table_row_pointwise_functional x10
  69. 0069specialize beta_pascal_table_row_pointwise_functional (S n)
  70. 0070specialize beta_pascal_table_row_pointwise_functional (S n)
  71. 0071specialize beta_pascal_table_row_pointwise_functional n
  72. 0072specialize beta_pascal_table_row_pointwise_functional x5
  73. 0073specialize beta_pascal_table_row_pointwise_functional x6
  74. 0074specialize beta_pascal_table_row_pointwise_functional x11
  75. 0075specialize beta_pascal_table_row_pointwise_functional x12
  76. 0076apply beta_pascal_table_row_pointwise_functional
  77. 0077exact hleft_right_right_witness_witness_witness_witness_witness_witness_left
  78. 0078exact hright_right_right_witness_witness_witness_witness_witness_witness_left
  79. 0079exact hrow_bound
  80. 0080exact hrow_bound
  81. 0081exact hleft_right_right_witness_witness_witness_witness_witness_witness_right_left
  82. 0082exact hleft_right_right_witness_witness_witness_witness_witness_witness_right_right_left
  83. 0083exact hright_right_right_witness_witness_witness_witness_witness_witness_right_left
  84. 0084exact hright_right_right_witness_witness_witness_witness_witness_witness_right_right_left
  85. 0085specialize hagree k
  86. 0086specialize hagree x
  87. 0087specialize hagree y
  88. 0088apply hagree
  89. 0089exact hinner_bound
  90. 0090exact hinner_bound
  91. 0091exact hleft_right_right_witness_witness_witness_witness_witness_witness_right_right_right
  92. 0092exact hright_right_right_witness_witness_witness_witness_witness_witness_right_right_right