wlp pconds (NonDet s1 s2) q =
  let
    (sub1, checks1) = (wlp pconds s1 q)
    (sub2, checks2) = (wlp pconds s2 q)
  in (BinOp sub1 LAnd sub2, checks1 ++ checks2)
wlp pconds (NonDet s1 s2) q =
  let
    (sub1, checks1) = (wlp pconds s1 q)
    (sub2, checks2) = (wlp pconds s2 q)
  in (BinOp sub1 LAnd sub2, checks1 ++ checks2)
wlp pconds (NonDet s1 s2) q =
  let
    (sub1, checks1) = (wlp pconds s1 q)
    (sub2, checks2) = (wlp pconds s2 q)
  in (BinOp sub1 LAnd sub2, checks1 ++ checks2)