e0d7c3ac79
This PR introduces date and time functionality to the Lean 4 Std. Breaking Changes: - `Lean.Data.Rat` is now `Std.Internal.Rat` because it's used by the DateTime library. --------- Co-authored-by: Markus Himmel <markus@himmel-villmar.de> Co-authored-by: Mac Malone <tydeu@hatpress.net>
28 lines
639 B
Text
28 lines
639 B
Text
import Std.Internal.Rat
|
|
open Std.Internal
|
|
|
|
/-!
|
|
Test the `rightact%` elaborator for `HPow.hPow`, added to address #2854
|
|
-/
|
|
|
|
open Lean
|
|
|
|
variable (n : Nat) (m : Int) (q : Rat)
|
|
|
|
#check n ^ 2 + m ^ 2
|
|
#check n ^ 2 + 1
|
|
#check (n ^ 2 + 1 : Int)
|
|
#check (n ^ 2 + (1 : Nat) : Int)
|
|
|
|
instance instNatPowRat : NatPow Rat where
|
|
pow q n := Std.Internal.mkRat (q.num ^ n) (q.den ^ n)
|
|
|
|
instance instPowRatInt : Pow Rat Int where
|
|
pow q m := if 0 ≤ m then q ^ (m.toNat : Nat) else (1/q) ^ ((-m).toNat)
|
|
|
|
#check q ^ n + 1
|
|
#check q ^ m + 1
|
|
#check q ^ (n : Int) + 1
|
|
|
|
#check 12 * q + 1 ≤ 13 * q ^ 2
|
|
#check (12 : Rat) * q + (1 : Rat) ≤ (13 : Rat) * q ^ 2
|