@@ -421,18 +421,19 @@ Definition describe_idx_from_state
421
421
| ExprApp (old _ _, _) => true
422
422
| _ => false
423
423
end in
424
- match is_old, description_from_state, show_full with
425
- | true, Some descr, _
426
- | _ , Some descr, true
424
+ match is_old, description_from_state, show_full, dag.lookup st.(dag_state) idx with
425
+ | true, Some descr, false, _
426
+ | true , Some descr, _, None
427
427
=> [show idx ++ " is " ++ descr ++ "."]
428
- | true, None, _
428
+ | _, Some descr, true, Some e
429
+ => [show idx ++ " is " ++ descr ++ " (" ++ show_node_lite e ++ ")."]
430
+ | true, None, _, _
429
431
=> [show idx ++ " is a special value no longer present in the symbolic machine state at the end of execution."]
430
- | _, _, false => []
431
- | _, None, true
432
- => [show idx ++ " is " ++ match dag.lookup st.(dag_state) idx with
433
- | Some e => show_node_lite e
434
- | None => "not in the dag"
435
- end ]
432
+ | _, _, false, _ => []
433
+ | _, None, true, Some e
434
+ => [show idx ++ " is " ++ show_node_lite e ++ "."]
435
+ | _, None, true, None
436
+ => [show idx ++ " is not in the dag."]
436
437
end %string.
437
438
438
439
Definition iteratively_describe_idxs_after
0 commit comments