From 2d204577f2e2f1a7e097971938561ad92b613d92 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Sun, 20 Mar 2022 13:59:00 +0000 Subject: Fix incorrect defining properties of floor. --- src/Helium/Data/Pseudocode/Types.agda | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Helium/Data/Pseudocode') diff --git a/src/Helium/Data/Pseudocode/Types.agda b/src/Helium/Data/Pseudocode/Types.agda index dbd3c6b..6ea9cd2 100644 --- a/src/Helium/Data/Pseudocode/Types.agda +++ b/src/Helium/Data/Pseudocode/Types.agda @@ -115,8 +115,9 @@ record Pseudocode b₁ b₂ i₁ i₂ i₃ r₁ r₂ r₃ : ⌊_⌋ : ℝ → ℤ /1-isHomo : IsRingHomomorphism ℤ.Unordered.rawRing ℝ.Unordered.rawRing _/1 ⌊⌋-isHomo : IsRingHomomorphism ℝ.Unordered.rawRing ℤ.Unordered.rawRing ⌊_⌋ - /1-mono : ∀ x y → x ℤ.< y → x /1 ℝ.< y /1 - ⌊⌋-floor : ∀ x y → x ℤ.≤ ⌊ y ⌋ → ⌊ y ⌋ ℤ.< x ℤ.+ 1ℤ + /1-mono-< : ∀ x y → x ℤ.< y → x /1 ℝ.< y /1 + ⌊⌋-mono-≤ : ∀ x y → x ℝ.≤ y → ⌊ x ⌋ ℤ.≤ ⌊ y ⌋ + ⌊⌋-floor : ∀ x y → x ℝ.< y /1 → ⌊ x ⌋ ℤ.< y ⌊⌋∘/1≗id : ∀ x → ⌊ x /1 ⌋ ℤ.≈ x module /1 = IsRingHomomorphism /1-isHomo renaming (⟦⟧-cong to cong) -- cgit v1.2.3