This module contains the definition of a generic boolean substructure for SMT problems with BoolExpr. For verification purposes BoolExpr.Sat and BoolExpr.Unsat are provided.

inductive Std.Tactic.BVDecide.Gate : Type

• and : Std.Tactic.BVDecide.Gate
• xor : Std.Tactic.BVDecide.Gate
• beq : Std.Tactic.BVDecide.Gate
• imp : Std.Tactic.BVDecide.Gate

def Std.Tactic.BVDecide.Gate.toString : Std.Tactic.BVDecide.Gate → String

Equations

• Std.Tactic.BVDecide.Gate.and.toString = "&&"
• Std.Tactic.BVDecide.Gate.xor.toString = "^^"
• Std.Tactic.BVDecide.Gate.beq.toString = "=="
• Std.Tactic.BVDecide.Gate.imp.toString = "->"

def Std.Tactic.BVDecide.Gate.eval : Std.Tactic.BVDecide.Gate → Bool → Bool → Bool

Equations

• Std.Tactic.BVDecide.Gate.and.eval = fun (x1 x2 : Bool) => x1 && x2
• Std.Tactic.BVDecide.Gate.xor.eval = fun (x1 x2 : Bool) => x1 ^^ x2
• Std.Tactic.BVDecide.Gate.beq.eval = fun (x1 x2 : Bool) => x1 == x2
• Std.Tactic.BVDecide.Gate.imp.eval = fun (x1 x2 : Bool) => decide (x1 = true → x2 = true)

inductive Std.Tactic.BVDecide.BoolExpr (α : Type) : Type

• literal {α : Type} : α → Std.Tactic.BVDecide.BoolExpr α
• const {α : Type} : Bool → Std.Tactic.BVDecide.BoolExpr α
• not {α : Type} : Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α
• gate {α : Type} : Std.Tactic.BVDecide.Gate → Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α
• ite {α : Type} : Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α → Std.Tactic.BVDecide.BoolExpr α

def Std.Tactic.BVDecide.BoolExpr.toString {α : Type} [ToString α] : Std.Tactic.BVDecide.BoolExpr α → String

Equations

• (Std.Tactic.BVDecide.BoolExpr.literal a).toString = toString a
• (Std.Tactic.BVDecide.BoolExpr.const b).toString = toString b
• x_1.not.toString = "!" ++ x_1.toString
• (Std.Tactic.BVDecide.BoolExpr.gate g x_1 y).toString = "(" ++ x_1.toString ++ " " ++ g.toString ++ " " ++ y.toString ++ ")"
• (d.ite l r).toString = "(if " ++ d.toString ++ " " ++ l.toString ++ " " ++ r.toString ++ ")"

instance Std.Tactic.BVDecide.BoolExpr.instToString {α : Type} [ToString α] : ToString (Std.Tactic.BVDecide.BoolExpr α)

Equations

• Std.Tactic.BVDecide.BoolExpr.instToString = { toString := Std.Tactic.BVDecide.BoolExpr.toString }

def Std.Tactic.BVDecide.BoolExpr.eval {α : Type} (a : α → Bool) : Std.Tactic.BVDecide.BoolExpr α → Bool

Equations

• Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.literal a_1) = a a_1
• Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.const b) = b
• Std.Tactic.BVDecide.BoolExpr.eval a x_1.not = !Std.Tactic.BVDecide.BoolExpr.eval a x_1
• Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.gate g x_1 y) = g.eval (Std.Tactic.BVDecide.BoolExpr.eval a x_1) (Std.Tactic.BVDecide.BoolExpr.eval a y)
• Std.Tactic.BVDecide.BoolExpr.eval a (d.ite l r) = if Std.Tactic.BVDecide.BoolExpr.eval a d = true then Std.Tactic.BVDecide.BoolExpr.eval a l else Std.Tactic.BVDecide.BoolExpr.eval a r

@[simp]

theorem Std.Tactic.BVDecide.BoolExpr.eval_literal {α✝ : Type} {a : α✝ → Bool} {l : α✝} : Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.literal l) = a l

@[simp]

theorem Std.Tactic.BVDecide.BoolExpr.eval_const {α✝ : Type} {a : α✝ → Bool} {b : Bool} : Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.const b) = b

@[simp]

theorem Std.Tactic.BVDecide.BoolExpr.eval_not {α✝ : Type} {a : α✝ → Bool} {x : Std.Tactic.BVDecide.BoolExpr α✝} : Std.Tactic.BVDecide.BoolExpr.eval a x.not = !Std.Tactic.BVDecide.BoolExpr.eval a x

@[simp]

theorem Std.Tactic.BVDecide.BoolExpr.eval_gate {α✝ : Type} {a : α✝ → Bool} {g : Std.Tactic.BVDecide.Gate} {x y : Std.Tactic.BVDecide.BoolExpr α✝} : Std.Tactic.BVDecide.BoolExpr.eval a (Std.Tactic.BVDecide.BoolExpr.gate g x y) = g.eval (Std.Tactic.BVDecide.BoolExpr.eval a x) (Std.Tactic.BVDecide.BoolExpr.eval a y)

@[simp]

theorem Std.Tactic.BVDecide.BoolExpr.eval_ite {α✝ : Type} {a : α✝ → Bool} {d l r : Std.Tactic.BVDecide.BoolExpr α✝} : Std.Tactic.BVDecide.BoolExpr.eval a (d.ite l r) = if Std.Tactic.BVDecide.BoolExpr.eval a d = true then Std.Tactic.BVDecide.BoolExpr.eval a l else Std.Tactic.BVDecide.BoolExpr.eval a r

def Std.Tactic.BVDecide.BoolExpr.Sat {α : Type} (a : α → Bool) (x : Std.Tactic.BVDecide.BoolExpr α) : Prop

Equations

• Std.Tactic.BVDecide.BoolExpr.Sat a x = (Std.Tactic.BVDecide.BoolExpr.eval a x = true)

def Std.Tactic.BVDecide.BoolExpr.Unsat {α : Type} (x : Std.Tactic.BVDecide.BoolExpr α) : Prop

Equations

• x.Unsat = ∀ (f : α → Bool), Std.Tactic.BVDecide.BoolExpr.eval f x = false

theorem Std.Tactic.BVDecide.BoolExpr.sat_and {α : Type} {x y : Std.Tactic.BVDecide.BoolExpr α} {a : α → Bool} (hx : Std.Tactic.BVDecide.BoolExpr.Sat a x) (hy : Std.Tactic.BVDecide.BoolExpr.Sat a y) : Std.Tactic.BVDecide.BoolExpr.Sat a (Std.Tactic.BVDecide.BoolExpr.gate Std.Tactic.BVDecide.Gate.and x y)

theorem Std.Tactic.BVDecide.BoolExpr.sat_true {α : Type} {a : α → Bool} : Std.Tactic.BVDecide.BoolExpr.Sat a (Std.Tactic.BVDecide.BoolExpr.const true)