File tree Expand file tree Collapse file tree
Cubical/Data/Rationals/MoreRationals/QuoQ Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ open import Cubical.Data.Int.MoreInts.QuoInt renaming (_·_ to _ℤ·_)
66open import Cubical.Data.Int as Int renaming (ℤ to Int)
77open import Cubical.Foundations.Prelude
88
9- open import Cubical.HITs.SetQuotients
9+ open import Cubical.HITs.SetQuotients
1010
1111open import Cubical.Relation.Binary.Base
1212open BinaryRelation
@@ -22,7 +22,7 @@ iso/rHlp (z , n) = ∼≡-lemma (Int→ℤ (ℤ→Int z)) z n (ℤ→Int→ℤ z
2222Int≡Int→ℤ·≡ℤ· : ∀ x y → x Int.· (Rationals.ℕ₊₁→ℤ y) ≡ ℤ→Int ((Int→ℤ x) ℤ· (Quo.ℕ₊₁→ℤ y))
2323Int≡Int→ℤ·≡ℤ· x y = (cong₂ (λ u v → u Int.· v) (sym (Int→ℤ→Int x)) refl) ∙
2424 sym (ℤ→IntIsHom· (Int→ℤ x) (Quo.ℕ₊₁→ℤ y))
25-
25+
2626∼'→R* : ∀ u v → (u Rationals∼ v) → R* {ER = Quo.isEquivRel∼}
2727 {iso/r = iso/R (λ x → ℤ→Int (fst x) , (snd x))
2828 (λ x → (Int→ℤ (fst x)) , (snd x)) λ u → iso/rHlp u} u v
You can’t perform that action at this time.
0 commit comments