-
-
Notifications
You must be signed in to change notification settings - Fork 7
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
major refactoring #241
base: master
Are you sure you want to change the base?
major refactoring #241
Conversation
williamdemeo
commented
Nov 9, 2023
•
edited
Loading
edited
- make compatible with Agda 2.6.4
- make compatible with agda-stdlib 2.0
- rename some level variables using new convention
- α -> a
- β -> b
- ρᵃ -> α
- ρᵇ -> β
- [X] make compatible with Agda 2.6.4 - [X] make compatible with agda-stdlib 2.0 - [X] renamed some level variables using new convention - [X] α -> a - [X] β -> b - [X] ρᵃ -> α - [X] ρᵇ -> β
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Nice. I agree that the two 'TODO's should really be done before this is merged.
where | ||
imgfy→A : Image f ∋ y → Σ[ a ∈ A ] f a ≡ y | ||
imgfy→A (eq a p) = a , sym p | ||
-- `fE y` is a proof of `Image f ∋ y ` |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
-- `fE y` is a proof of `Image f ∋ y ` |
@@ -189,10 +189,10 @@ We reproduce the definitions and prove some of their properties inside the next | |||
module _ {𝑨 : Setoid α ρᵃ}{𝑩 : Setoid β ρᵇ} where | |||
open Setoid 𝑨 using () renaming ( _≈_ to _≈ᴬ_ ) | |||
open Setoid 𝑩 using () renaming ( _≈_ to _≈ᴮ_ ) | |||
open FD _≈ᴬ_ _≈ᴮ_ | |||
open FD -- _≈ᴬ_ _≈ᴮ_ |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
open FD -- _≈ᴬ_ _≈ᴮ_ | |
open FD |
(f ̂ 𝑩)(g ∘ (h⁻¹ ∘ c)) ∎ | ||
φcomp {f}{c} = trans₂ i (trans₂ ii (trans₂ iii iv)) | ||
where | ||
-- TODO: refactor this proof using the new relational reasoning syntax |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Refactor this proof before merge.
where private f = _⟨$⟩_ ∣ fh ∣ ; g = _⟨$⟩_ ∣ gh ∣ | ||
⊧-I-invar Apq (mkiso fh gh f∼g g∼f) ρ = trans i $ trans ii $ trans iii $ trans iv v | ||
where | ||
-- TODO: refactor this proof using new relational reasoning syntax/style |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Refactor this proof before merge.
@JacquesCarette Thank you for continuing to care about this project and commenting on PRs. I really appreciate your input! 🤗 A couple of issues with this PR (recorded here for my own reference), to be addressed before merging:
|