We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b194b08 commit 77cd3cfCopy full SHA for 77cd3cf
1 file changed
src/Data/Rational/Base.lagda.md
@@ -557,13 +557,9 @@ reduceℚ : Ratio → Fraction
557
reduceℚ (inc x) = split.choose x
558
559
splitℚ : (x : Ratio) → fibre toℚ x
560
-splitℚ (inc x) = record
561
- { fst = split.choose x
562
- -- The use of 'recover' here replaces the calculated proof that
563
- -- is-split-congruence returns by an invocation of Discrete-ℚ. This
564
- -- has much shorter normal forms when applied to concrete values.
565
- ; snd = ap inc (split.splitting x .snd)
566
- }
+splitℚ (inc x) = record where
+ fst = split.choose x
+ snd = ap inc (split.splitting x .snd)
567
568
abstract
569
reduce-injective : ∀ x y → reduceℚ x ≡ reduceℚ y → x ≡ y
0 commit comments