• Top
    • Documentation
    • Books
    • Recursion-and-induction
    • Boolean-reasoning
    • Projects
    • Debugging
      • Break-rewrite
      • Proof-builder
      • Accumulated-persistence
      • Cgen
      • Proof-tree
      • Forward-chaining-reports
      • Print-gv
      • Dmr
      • Splitter
      • Guard-debug
      • Set-debugger-enable
      • Redo-flat
      • Time-tracker
      • Set-check-invariant-risk
      • Removable-runes
      • Efficiency
      • Tail-biting
      • Failed-forcing
      • Sneaky
        • Sneaky-mutate
        • Sneaky-push
        • Sneaky-incf
        • Sneaky-save
        • Sneaky-load
        • Sneaky-load-list
        • Sneaky-alist
          • Sneaky-pop
          • Sneaky-cw
          • Sneaky-delete
          • Sneaky-clear
        • Invariant-risk
        • Failure
        • Measure-debug
        • Dead-events
        • Remove-hyps
        • Type-prescription-debugging
        • Pstack
        • Set-register-invariant-risk
        • Trace
        • 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
      • Testing-utilities
      • Math
    • Sneaky

    Sneaky-alist

    Load an alist containing all values previously saved into the sneaky store.

    Signature
    (sneaky-alist state) → (mv alist state)

    Example:

    (sneaky-save 'foo 3)
    (sneaky-alist state) --> (mv '((foo . 3)) state)

    In the logic, this function reads from the ACL2 oracle. Under the hood, we redefine it so that it maps over a hash table and returns the values saved by, e.g., sneaky-save and sneaky-push.

    Definitions and Theorems

    Function: sneaky-alist

    (defun
     sneaky-alist (state)
     (declare (xargs :stobjs (state)))
     (declare (xargs :guard t))
     (let ((__function__ 'sneaky-alist))
          (declare (ignorable __function__))
          (b* ((- (raise "Under-the-hood definition not yet installed"))
               ((mv ?err val state)
                (read-acl2-oracle state)))
              (mv val state))))