- DB.find "inc";
> val it =
[(("arithmetic", "MULT_INCREASES"),
(|- !m n. 1 < m /\ 0 < n ==> SUC n <= m * n, Thm)),
(("bool", "BOOL_EQ_DISTINCT"), (|- ~(T = F) /\ ~(F = T), Thm)),
(("list", "list_distinct"), (|- !a1 a0. ~([] = a0::a1), Thm)),
(("sum", "sum_distinct"), (|- !x y. ~(INL x = INR y), Thm)),
(("sum", "sum_distinct1"), (|- !x y. ~(INR y = INL x), Thm))]
: ((string * string) * (thm * class)) list
- DB.find_in "sum" it;
> val it =
[(("sum", "sum_distinct"), (|- !x y. ~(INL x = INR y), Thm)),
(("sum", "sum_distinct1"), (|- !x y. ~(INR y = INL x), Thm))]
: ((string * string) * (thm * class)) list