• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
      • B*
      • Defunc
      • Fty
      • Apt
        • Simplify-defun
        • Isodata
        • Tailrec
        • Schemalg
        • Restrict
          • Restrict-implementation
            • Restrict-event-generation
            • Restrict-fn
              • Restrict-macro-definition
              • Restrict-input-processing
          • Expdata
          • Casesplit
          • Simplify-term
          • Simplify-defun-sk
          • Parteval
          • Solve
          • Wrap-output
          • Propagate-iso
          • Simplify
          • Finite-difference
          • Drop-irrelevant-params
          • Copy-function
          • Lift-iso
          • Rename-params
          • Utilities
          • Simplify-term-programmatic
          • Simplify-defun-sk-programmatic
          • Simplify-defun-programmatic
          • Simplify-defun+
          • Common-options
          • Common-concepts
        • Std/util
        • Defdata
        • Defrstobj
        • Seq
        • Match-tree
        • Defrstobj
        • With-supporters
        • Def-partial-measure
        • Template-subst
        • Soft
        • Defthm-domain
        • Event-macros
        • Def-universal-equiv
        • Def-saved-obligs
        • With-supporters-after
        • Definec
        • Sig
        • Outer-local
        • Data-structures
      • ACL2
        • Theories
        • Rule-classes
        • Proof-builder
        • Recursion-and-induction
        • Hons-and-memoization
        • Events
        • Parallelism
        • History
        • Programming
        • Operational-semantics
        • Real
        • Start-here
        • Debugging
        • Miscellaneous
        • Output-controls
        • Macros
          • Make-event
          • Defmacro
          • Untranslate-patterns
          • Tc
          • Trans*
          • Macro-aliases-table
          • Macro-args
          • Defabbrev
          • User-defined-functions-table
          • Trans
          • Untranslate-for-execution
          • Add-macro-fn
          • Check-vars-not-free
          • Safe-mode
          • Macro-libraries
            • B*
            • Defunc
            • Fty
            • Apt
              • Simplify-defun
              • Isodata
              • Tailrec
              • Schemalg
              • Restrict
                • Restrict-implementation
                  • Restrict-event-generation
                  • Restrict-fn
                    • Restrict-macro-definition
                    • Restrict-input-processing
                • Expdata
                • Casesplit
                • Simplify-term
                • Simplify-defun-sk
                • Parteval
                • Solve
                • Wrap-output
                • Propagate-iso
                • Simplify
                • Finite-difference
                • Drop-irrelevant-params
                • Copy-function
                • Lift-iso
                • Rename-params
                • Utilities
                • Simplify-term-programmatic
                • Simplify-defun-sk-programmatic
                • Simplify-defun-programmatic
                • Simplify-defun+
                • Common-options
                • Common-concepts
              • Std/util
              • Defdata
              • Defrstobj
              • Seq
              • Match-tree
              • Defrstobj
              • With-supporters
              • Def-partial-measure
              • Template-subst
              • Soft
              • Defthm-domain
              • Event-macros
              • Def-universal-equiv
              • Def-saved-obligs
              • With-supporters-after
              • Definec
              • Sig
              • Outer-local
              • Data-structures
            • Trans1
            • Defmacro-untouchable
            • Set-duplicate-keys-action
            • Add-macro-alias
            • Magic-macroexpand
            • Defmacroq
            • Trans!
            • Remove-macro-fn
            • Remove-macro-alias
            • Add-binop
            • Untrans-table
            • Trans*-
            • Remove-binop
            • Tcp
            • Tca
          • Interfacing-tools
        • Interfacing-tools
        • Hardware-verification
        • Software-verification
        • Math
        • Testing-utilities
      • Restrict-implementation

      Restrict-fn

      Check redundancy, process the inputs, and generate the event to submit.

      Signature
      (restrict-fn old restriction undefined 
                   new-name new-enable old-to-new-name 
                   old-to-new-name? old-to-new-enable 
                   old-to-new-enable? new-to-old-name 
                   new-to-old-name? new-to-old-enable 
                   new-to-old-enable? verify-guards 
                   hints print show-only call ctx state) 
       
        → 
      (mv erp event state)
      Arguments
      old-to-new-name? — Guard (booleanp old-to-new-name?).
      old-to-new-enable? — Guard (booleanp old-to-new-enable?).
      new-to-old-name? — Guard (booleanp new-to-old-name?).
      new-to-old-enable? — Guard (booleanp new-to-old-enable?).
      call — Guard (pseudo-event-formp call).
      Returns
      event — A pseudo-event-formp.

      If this call to the transformation is redundant, a message to that effect is printed on the screen. If the transformation is redundant and :show-only is t, the encapsulate, retrieved from the table, is shown on the screen.

      Definitions and Theorems

      Function: restrict-fn

      (defun restrict-fn (old restriction undefined
                              new-name new-enable old-to-new-name
                              old-to-new-name? old-to-new-enable
                              old-to-new-enable? new-to-old-name
                              new-to-old-name? new-to-old-enable
                              new-to-old-enable? verify-guards
                              hints print show-only call ctx state)
       (declare (xargs :stobjs (state)))
       (declare (xargs :guard (and (booleanp old-to-new-name?)
                                   (booleanp old-to-new-enable?)
                                   (booleanp new-to-old-name?)
                                   (booleanp new-to-old-enable?)
                                   (pseudo-event-formp call))))
       (let ((__function__ 'restrict-fn))
        (declare (ignorable __function__))
        (b* ((encapsulate?
                  (previous-transformation-expansion call (w state)))
             ((when encapsulate?)
              (b* (((run-when show-only)
                    (cw "~x0~|" encapsulate?)))
                (cw "~%The transformation ~x0 is redundant.~%"
                    call)
                (value '(value-triple :invisible))))
             ((er (list old restriction undefined new
                        new-enable old-to-new old-to-new-enable
                        new-to-old new-to-old-enable
                        verify-guards hints names-to-avoid))
              (restrict-process-inputs old restriction undefined
                                       new-name new-enable old-to-new-name
                                       old-to-new-name? old-to-new-enable
                                       old-to-new-enable? new-to-old-name
                                       new-to-old-name? new-to-old-enable
                                       new-to-old-enable? verify-guards
                                       hints print show-only ctx state))
             ((er event)
              (restrict-gen-everything
                   old restriction undefined new
                   new-enable old-to-new old-to-new-enable
                   new-to-old new-to-old-enable
                   verify-guards hints print show-only
                   call names-to-avoid ctx state)))
          (value event))))