fact: Definition equiv (X Y: config) := exists (Z: config), reachable M X Z /\ reachable M Y Z.
imports: PeanoNat Lia Relation_Operators Operators_Properties List ssreflect ssrfun ssrbool Undecidability.StackMachines.SSM