Seol mar théacs é seo: Probabilistic guarded commands mechanized in HOL