Skip to content

Commit 522673c

Browse files
whitespace fix
1 parent 8a6e91b commit 522673c

File tree

3 files changed

+139
-115
lines changed

3 files changed

+139
-115
lines changed

Cubical/Data/Rationals/Order/Properties.agda

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1374,15 +1374,15 @@ q /ℚ[ r , 0#r ] = q · (invℚ r 0#r)
13741374

13751375
ℚ-x/y<z→x/z<y : x q r (0<x : 0 < x) (0<q : 0 < q) (0<r : 0 < r)
13761376
(x /ℚ[ r , inl 0<r ]) < q
1377-
(x /ℚ[ q , inl 0<q ]) < r
1377+
(x /ℚ[ q , inl 0<q ]) < r
13781378
ℚ-x/y<z→x/z<y x q r 0<x 0<q 0<r p =
13791379
subst2 _<_ (sym (·Assoc _ _ _)
13801380
∙ cong (x ·_) ((·Comm _ _) ∙
13811381
cong (_· invℚ r (inl 0<r)) (·Comm _ _) ∙
13821382
ℚ-[x·y]/y _ _ _ ) )
13831383
((·Comm _ _) ∙ ℚ-[x/y]·y _ _ _)
13841384
(<-·o (x /ℚ[ r , (inl 0<r) ]) q (r /ℚ[ q , (inl 0<q) ])
1385-
(0<-m·n _ _ 0<r (invℚ-pos q (inl 0<q) 0<q)) p)
1385+
(0<-m·n _ _ 0<r (invℚ-pos q (inl 0<q) 0<q)) p)
13861386

13871387
invℚ≤invℚ : (p q : ℚ₊) fst q ≤ fst p fst (invℚ₊ p) ≤ fst (invℚ₊ q)
13881388
invℚ≤invℚ p q x =

Cubical/HITs/CauchyReals/Derivative.agda

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -97,7 +97,7 @@ IsContinuousInclLim≃IsContinuous : ∀ f →
9797
IsContinuousInclLim≃IsContinuous f =
9898
propBiimpl→Equiv (isPropΠ2 λ _ _ squash₁) (isPropIsContinuous f)
9999
(IsContinuousInclLim→IsContinuous f)
100-
λ fc x IsContinuousInclLim f x fc
100+
λ fc x IsContinuousInclLim f x fc
101101

102102
IsContinuousLimΔ : f x IsContinuous f
103103
at 0 limitOf (λ Δx _ f (x +ᵣ Δx)) is (f x)

0 commit comments

Comments
 (0)