Skip to content

Conversation

@lowasser
Copy link
Collaborator

Builds on #1688, #1689, and #1684.

@lowasser lowasser marked this pull request as ready for review November 21, 2025 20:26
Copy link
Collaborator

@fredrik-bakke fredrik-bakke left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I think you should write new files on positive intervals, negative intervals, and their interaction so that you can in particular avoid these long and awkward type signatures.

Comment on lines +1310 to +1328
same-sign-a-c =
same-sign-is-positive-mul-ℚ
( is-positive-leq-ℚ⁺
( _ , is-pos-lb)
( transitive-leq-ℚ _ _ _ (leq-left-min-ℚ _ _) (leq-left-min-ℚ _ _)))
same-sign-a-d =
same-sign-is-positive-mul-ℚ
( is-positive-leq-ℚ⁺
( _ , is-pos-lb)
( transitive-leq-ℚ _ _ _
( leq-right-min-ℚ _ _)
( leq-left-min-ℚ _ _)))
same-sign-b-d =
same-sign-is-positive-mul-ℚ
( is-positive-leq-ℚ⁺
( _ , is-pos-lb)
( transitive-leq-ℚ _ _ _
( leq-right-min-ℚ _ _)
( leq-right-min-ℚ _ _)))
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

These should be separate lemmas: same-sign-lower-bound-is-positive-mul-closed-interval-ℚ, same-sign-upper-lower-bound-is-positive-mul-closed-interval-ℚ, and same-sign-upper-bound-is-positive-mul-closed-interval-ℚ respectively

Comment on lines +1333 to +1346
is-neg-d =
rec-coproduct
( pr2)
( λ (is-pos-a , _)
ex-falso
( is-not-negative-and-positive-ℚ (is-neg-a , is-pos-a)))
( same-sign-a-d)
is-neg-b =
rec-coproduct
( pr1)
( λ (_ , is-pos-d)
ex-falso
( is-not-negative-and-positive-ℚ (is-neg-d , is-pos-d)))
( same-sign-b-d)
Copy link
Collaborator

@fredrik-bakke fredrik-bakke Nov 25, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

can these be factored into separate lemmas of the form not-same-sign-BLAH-BLAH-is-positive-mul-closed-interval-ℚ?

Copy link
Collaborator

@fredrik-bakke fredrik-bakke Nov 25, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Sorry, I mean *is-negative-upper-bound-right-factor-is-positive-mul-closed-interval-ℚ and is-negative-upper-bound-left-factor-is-positive-mul-closed-interval-ℚ.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants