50 lines
712 B
Plaintext
50 lines
712 B
Plaintext
-- import data.real.basic
|
||
import Mathlib.Data.Real.Basic
|
||
|
||
def α : Type := Nat
|
||
#check α
|
||
|
||
-- Cartesian product of Nat and String.
|
||
def myTuple : Prod Nat String := (42, "Answer")
|
||
|
||
#check Prod
|
||
#check Prop
|
||
|
||
def maximum (n : Nat) (k : Nat) : Nat :=
|
||
if n < k then
|
||
k
|
||
else n
|
||
|
||
#check maximum
|
||
#eval maximum 3 4
|
||
|
||
-- def c : Real := 3
|
||
-- def f (x : R) : R :=
|
||
-- if h : x = 3 then
|
||
-- have h : x = 3 := h
|
||
-- x
|
||
-- else
|
||
-- 2 * x
|
||
|
||
-- open Real
|
||
|
||
def f (x : Real) : Real := x
|
||
#check f
|
||
#eval f 3
|
||
|
||
noncomputable def g (x : ℝ) : ℝ := 1 / x
|
||
#check g
|
||
#eval g 3
|
||
|
||
def n : Nat := 3
|
||
#eval n
|
||
def frac_val : Rat := 1/2
|
||
#eval frac_val
|
||
def frac_val' : Rat := 0.5
|
||
#eval frac_val'
|
||
|
||
def real_val : ℝ := 0.5
|
||
#eval real_val
|
||
|
||
--
|