MagicRewriting.AdornmentSourceThis module implements free/bound adornments
status_to_string st returns a string describing the status (basically either "f" or "b").
adornment ~bound_variables pred returns a pair (bindings, new_bound_variables) where bindings is the status of each of the parameters of the predicate pred according to the bound_variables set, and new_bound_variables is the bound_variables augmented with the variables occuring as parameters of pred.
compare ad1 ad2 returns 0 if the adornments are equal, -1 if ad1 is smaller than ad2, and 1 otherwise.
to_string ad returns a string (a word made of b's and f's) describing the adornment.
val adorned_predicate_to_string :
pred_table:ASPred.PredIdTable.table ->
(ASPred.predicate * t) ->
stringadorned_predicate_to_string ~pred_table ad returns the string corresponding to the adorned predicate.