intro h assign
case mpr
entry : Entrypoint Nat
⊢ entry.unsat →
    CNF.unsat
      ([(Sum.inr ⟨entry.ref.gate, ⋯⟩, true)] ::
        (toCNF.go entry.aig entry.ref.gate ⋯ (toCNF.State.empty entry.aig)).val.cnf)
case mpr
entry : Entrypoint Nat
h : entry.unsat
assign : entry.aig.CNFVar → Bool
⊢ CNF.eval assign
      ([(Sum.inr ⟨entry.ref.gate, ⋯⟩, true)] ::
        (toCNF.go entry.aig entry.ref.gate ⋯ (toCNF.State.empty entry.aig)).val.cnf) =
    false