3a457e6ad6
Many of our tests in `tests/lean/run/` produce output from `#eval` (or `#check`) statements, that is then ignored. This PR tries to capture all the useful output using `#guard_msgs`. I've only done a cursory check that the output is still sane --- there is a chance that some "unchecked" tests have already accumulated regressions and this just cements them! In the other direction, I did identify two rotten tests: * a minor one in `setStructInstNotation.lean`, where a comment says `Set Nat`, but `#check` actually prints `?_`. Weird? * `CompilerProbe.lean` is generating empty output, apparently indicating that something is broken, but I don't know the signficance of this file. In any case, I'll ask about these elsewhere. (This started by noticing that a recent `grind` test file had an untested `trace_state`, and then got carried away.)
43 lines
879 B
Text
43 lines
879 B
Text
structure Magma.{u} where
|
||
α : Type u
|
||
mul : α → α → α
|
||
|
||
def Nat.Magma : Magma where
|
||
α := Nat
|
||
mul a b := a * b
|
||
|
||
def Prod.Magma (m : Magma.{u}) (n : Magma.{v}) : Magma where
|
||
α := m.α × n.α
|
||
mul | (a₁, b₁), (a₂, b₂) => (m.mul a₁ a₂, n.mul b₁ b₂)
|
||
|
||
instance : CoeSort Magma.{u} (Type u) where
|
||
coe m := m.α
|
||
|
||
def mul {s : Magma} (a b : s) : s :=
|
||
s.mul a b
|
||
|
||
/-- hi -/
|
||
unif_hint (s : Magma) where
|
||
s =?= Nat.Magma |- s.α =?= Nat
|
||
|
||
unif_hint (s : Magma) (m : Magma) (n : Magma) (β : Type u) (δ : Type v) where
|
||
m.α =?= β
|
||
n.α =?= δ
|
||
s =?= Prod.Magma m n
|
||
|-
|
||
s.α =?= β × δ
|
||
|
||
def f1 (x : Nat) : Nat :=
|
||
mul x x
|
||
|
||
#guard f1 10 == 100
|
||
|
||
def f2 (x y : Nat) : Nat × Nat :=
|
||
mul (x, y) (x, y)
|
||
|
||
#guard f2 10 20 == (100, 400)
|
||
|
||
def f3 (x y : Nat) : Nat × Nat × Nat :=
|
||
mul (x, y, y) (x, y, y)
|
||
|
||
#guard f3 7 24 == (49, 576, 576)
|