marginal
  :: MLN -- ^ The Markov logic network.
  -> [Term] -- ^ List of constants to ground the Markov logic network.
  -> Predicate-- ^ An assignment to all predicates in the Markov logic network.
  -> Bool -- ^ Truth value of the predicate.
  -> Double -- ^ A probability in [0.0, 1.0]Alicia Malone
marginal mln ts p b = joint mln ts $ Set.fromList [(p, b)]
marginal
  :: MLN -- ^ The Markov logic network.
  -> [Term] -- ^ List of constants to ground the Markov logic network.
  -> Predicate-- ^ An assignment to all predicates in the Markov logic network.
  -> Bool -- ^ Truth value of the predicate.
  -> Double
marginal mln ts p b = joint mln ts $ Set.fromList [(p, b)]
marginal mln ts p b = joint mln ts $ Set.fromList [(p, b)]