		Search-engine friendly clone of the ACL2 documentation.

Lucid

Vl-pps-lucidstate

Pretty-printer for debugging the lucid state.

Signature
(vl-pps-lucidstate x) → str
Arguments: x — Guard (vl-lucidstate-p x).
Returns: str — Type (stringp str).

Definitions and Theorems

Function: vl-pps-lucidstate

(defun vl-pps-lucidstate (x)
  (declare (xargs :guard (vl-lucidstate-p x)))
  (let ((__function__ 'vl-pps-lucidstate))
    (declare (ignorable __function__))
    (with-local-ps (vl-pp-lucidstate x))))

Theorem: stringp-of-vl-pps-lucidstate

(defthm stringp-of-vl-pps-lucidstate
  (b* ((str (vl-pps-lucidstate x)))
    (stringp str))
  :rule-classes :type-prescription)

Theorem: vl-pps-lucidstate-of-vl-lucidstate-fix-x

(defthm vl-pps-lucidstate-of-vl-lucidstate-fix-x
  (equal (vl-pps-lucidstate (vl-lucidstate-fix x))
         (vl-pps-lucidstate x)))

Theorem: vl-pps-lucidstate-vl-lucidstate-equiv-congruence-on-x

(defthm vl-pps-lucidstate-vl-lucidstate-equiv-congruence-on-x
  (implies (vl-lucidstate-equiv x x-equiv)
           (equal (vl-pps-lucidstate x)
                  (vl-pps-lucidstate x-equiv)))
  :rule-classes :congruence)

Subtopics

Vl-pps-scopestack-path
Vl-pp-lucidocc
Vl-pp-lucidkey
Vl-pp-scopestack-path
Vl-pp-lucidval
Vl-pp-lucidocclist
Vl-pp-luciddb-aux
Vl-lucid-mash-tag
Vl-pp-scope-name
Vl-pp-lucidstate
Vl-pp-luciddb