| 1 | assert_fact | Use requester/2, approver/2, manager_of/2, conflict/2, eligible/1. |
| 2 | assert_fact | Set requester(claim_12, dana). |
| 3 | assert_fact | Set approver(claim_12, dana). |
| 4 | assert_fact | Set manager_of(leo, dana). |
| 5 | assert_fact | assert rule conflict(C, P) :- requester(C, P), approver(C, P). |
| 6 | assert_fact | assert rule conflict(C, M) :- requester(C, P), manager_of(M, P), approver(C, M). |
| 7 | assert_fact | assert rule eligible(C) :- requester(C, R), approver(C, A), R \= A. |
| 8 | retract | {'utterance': 'fix it so manager leo signs for now then we test', 'clarification_answers': ['Retract approver(claim_12, dana). Set approver(claim_12, leo).'], 'max_clarification_rounds': 1} |
| 9 | retract | retract fact approver(claim_12, dana). |
| 10 | assert_fact | Set approver(claim_12, leo). |
| 11 | retract | {'utterance': 'still bad, move signoff to mira and keep requester same', 'clarification_answers': ['Retract approver(claim_12, leo). Set approver(claim_12, mira). Set requester(claim_12, dana).'], 'max_clarification_rounds': 1} |
| 12 | retract | retract fact approver(claim_12, leo). |
| 13 | assert_fact | Set approver(claim_12, mira). |
| 14 | assert_fact | Set requester(claim_12, dana). |
| 15 | assert_fact | query conflict(claim_12, dana). |
| 16 | assert_fact | query conflict(claim_12, leo). |
| 17 | assert_fact | query eligible(claim_12). |