diff options
| author | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-20 13:59:00 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-20 13:59:00 +0000 |
| commit | 2d204577f2e2f1a7e097971938561ad92b613d92 (patch) | |
| tree | 7958552c0f2d532f7b063a87e8628d8493415043 /src | |
| parent | dd97e0a58b377161fb8e9ab7b5524f63b875612c (diff) | |
Fix incorrect defining properties of floor.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Helium/Data/Pseudocode/Types.agda | 5 |
1 files changed, 3 insertions, 2 deletions
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) |