- * 'a literal list (* left hand side of the arrow *)
- * 'a literal list (* right hand side of the arrow *)
+ * ('a literal * bool) list (* left hand side of the arrow,
+ with flag for selection *)
+ * ('a literal * bool) list (* right hand side of the arrow,
+ with flag for selection *)