diff options
Diffstat (limited to 'backends/lean/Base/Arith/Scalar.lean')
-rw-r--r-- | backends/lean/Base/Arith/Scalar.lean | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/backends/lean/Base/Arith/Scalar.lean b/backends/lean/Base/Arith/Scalar.lean index b792ff21..db672489 100644 --- a/backends/lean/Base/Arith/Scalar.lean +++ b/backends/lean/Base/Arith/Scalar.lean @@ -46,4 +46,8 @@ example (x y : U32) : x.val ≤ Scalar.max ScalarTy.U32 := by example (x y : U32) : x.val ≤ Scalar.max ScalarTy.U32 := by scalar_tac +-- Checking that we explore the goal *and* projectors correctly +example (x : U32 × U32) : 0 ≤ x.fst.val := by + scalar_tac + end Arith |