• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
      • Break-rewrite
      • Proof-builder
      • Accumulated-persistence
      • Cgen
      • Forward-chaining-reports
      • Proof-tree
      • Print-gv
      • Dmr
      • With-brr-data
      • Splitter
      • Guard-debug
      • Set-debugger-enable
      • Redo-flat
      • Time-tracker
      • Set-check-invariant-risk
      • Removable-runes
      • Efficiency
      • Explain-near-miss
      • Tail-biting
      • Failed-forcing
      • Sneaky
      • Invariant-risk
      • Failure
      • Measure-debug
      • Dead-events
      • Compare-objects
      • Prettygoals
      • Remove-hyps
      • Type-prescription-debugging
      • Pstack
      • Trace
      • Set-register-invariant-risk
      • Walkabout
      • Disassemble$
      • Nil-goal
      • Cw-gstack
      • Set-guard-msg
      • Find-lemmas
      • Watch
      • Quick-and-dirty-subsumption-replacement-step
      • Profile-all
      • Profile-ACL2
      • Set-print-gv-defaults
      • Minimal-runes
      • Spacewalk
      • Try-gl-concls
        • Near-misses
      • Std
      • Proof-automation
      • 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))))