47
47
(local (include-book "../esim-sexpr-support-thms"))
48
48
(local (include-book "centaur/vl/util/arithmetic" :dir :system))
61
50
(local (defthm atom-listp-of-pat-flatten1
62
51
(atom-listp (pat-flatten1 x))
63
52
:hints(("Goal" :in-theory (e/d (pat-flatten1)