(deffacts dane
(temp wysoka)
(ogien obecny)
)

(defrule alarm "Ratunku!!!"
(temp wysoka)
(ogien obecny)
=>
(assert (alarm wlaczony)))

(defrule straz "Pali sie!!!"
(alarm wlaczony)
=>
(assert (wezwanie straz)))