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
1.2 KiB
Text
43 lines
1.2 KiB
Text
-- From @joehendrix
|
|
-- The imul doesn't type check as Lean won't try to coerce from a reg (bv 64) to a expr (bv ?u)
|
|
|
|
|
|
inductive MCType
|
|
| bv : Nat → MCType
|
|
|
|
open MCType
|
|
|
|
inductive Reg : MCType → Type
|
|
| rax (n : Nat) : Reg (bv n)
|
|
|
|
inductive Expr : MCType → Type
|
|
| r : ∀{tp:MCType}, Reg tp → Expr tp
|
|
| sextC {s:Nat} (x : Expr (bv s)) (t:Nat) : Expr (bv t)
|
|
|
|
instance reg_is_expr {tp:MCType} : Coe (Reg tp) (Expr tp) := ⟨Expr.r⟩
|
|
|
|
def bvmul {w:Nat} (x y : Expr (bv w)) : Expr (bv w) := x
|
|
|
|
/-
|
|
Remark: Joe's original example used the following definition.
|
|
```
|
|
def sext {s:Nat} (x : Expr (bv s)) (t:Nat) : Expr (bv t) := Expr.sextC x t
|
|
```
|
|
This definition is bad because the parameter `s` is unconstrained.
|
|
Type class resolution gets stuck at
|
|
```
|
|
CoeT (Reg (bv 64)) (Reg.rax 64) (Expr (bv ?m_1))
|
|
```
|
|
It would have to set `?m_1 := 64` which is not allowed since TC should
|
|
not change external TC metavariables.
|
|
I fixed the problem by changing the definition. Now,
|
|
type inference will enforce that `?m_1` must be 64, and TC will be able
|
|
to synthesize the instance.
|
|
-/
|
|
def sext {s:Nat} (x : Expr (bv s)) (n:Nat) : Expr (bv (s+n)) := Expr.sextC x (s+n)
|
|
|
|
open MCType
|
|
|
|
variable {u:Nat} (e : Expr (bv 64))
|
|
|
|
#check (bvmul (sext (Reg.rax 64) 64) (sext e 64) : Expr (bv 128))
|