• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
    • Gl
    • Witness-cp
    • Ccg
    • Install-not-normalized
    • Rewrite$
    • Fgl
    • Removable-runes
    • Efficiency
    • Rewrite-bounds
    • Bash
    • Def-dag-measure
    • Bdd
    • Remove-hyps
    • Contextual-rewriting
    • Simp
    • Rewrite$-hyps
    • Bash-term-to-dnf
    • Use-trivial-ancestors-check
    • Minimal-runes
    • Clause-processor-tools
    • Fn-is-body
    • Without-subsumption
    • Rewrite-equiv-hint
    • Def-bounds
    • Rewrite$-context
    • Try-gl-concls
    • Hint-utils
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Debugging
• Proof-automation

Try-gl-concls

Find true conclusions using GL

Given a list of possible conclusions, try-gl-concls uses gl to return the ones that are true (if any). For example, in the following form, try-gl-concls tells us that (not (equal (+ a b) 3)) and (not (equal (+ a b) 4)) are the only conclusions that are true.

(try-gl-concls test
  :hyp (and (unsigned-byte-p 1 a) (unsigned-byte-p 1 b))
  :concls ((not (equal (+ a b) 0))
           (not (equal (+ a b) 1))
           (not (equal (+ a b) 2))
           (not (equal (+ a b) 3))
           (not (equal (+ a b) 4)))
  :g-bindings (gl::auto-bindings (:mix (:nat a 8) (:nat b 8))))