chore: add full types

opencompl · May 22, 2024 · 01d9aa0 · 01d9aa0
1 parent d062407
commit 01d9aa0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/SSA/Projects/InstCombine/LLVM/CLITests.lean b/SSA/Projects/InstCombine/LLVM/CLITests.lean
@@ -200,7 +200,7 @@ match ctxt, values with
     let valuation' := mkValuation tys valsVec
     match ty with
       | .bitvec (.concrete w) =>
-         let newTy : toType (.bitvec (.concrete w)) := Option.map (BitVec.ofInt w) val
+         let newTy : toType (InstCombine.MTy.bitvec (ConcreteOrMVar.concrete w)) := Option.map (BitVec.ofInt w) val
          Ctxt.Valuation.snoc valuation' newTy
 
 def ConcreteCliTest.eval (test : ConcreteCliTest) (values : Vector (Option Int) test.context.length) :