ASM.pseudo_assembly_program -> (BitVector.word -> BitVector.word) ->
(BitVector.word -> Bool.bool) -> Measurable.preclassified_system
+val aSM_status :
+ ASM.pseudo_assembly_program -> (BitVector.word -> BitVector.word) ->
+ (BitVector.word -> Bool.bool) -> StructuredTraces.abstract_status
+