1 2 3 4 5 6 7 8 9 10 11 12
(relation Strings (String String)) (Strings "hello" "world") (rule ((Strings a b) (= res (+ a " " b))) ((Strings "found" "hello world")) :name "r1") (run 1) (prove (Strings "found" "hello world"))