18 lines
578 B
Text
18 lines
578 B
Text
|
-- Backward chaining with tagged rules
|
||
|
|
constants {P Q R S T U : Prop} (Hpq : P → Q) (Hqr : Q → R) (Hrs : R → S) (Hst : S → T)
|
||
|
|
constants (Huq : U → Q) (Hur : U → R) (Hus : U → S) (Hut : U → T)
|
||
|
|
attribute Hpq [backward]
|
||
|
|
attribute Hqr [backward]
|
||
|
|
attribute Hrs [backward]
|
||
|
|
attribute Hst [backward]
|
||
|
|
|
||
|
|
attribute Huq [backward]
|
||
|
|
attribute Hur [backward]
|
||
|
|
attribute Hus [backward]
|
||
|
|
attribute Hut [backward]
|
||
|
|
|
||
|
|
definition lemma1 (p : P) : Q := by blast
|
||
|
|
definition lemma2 (p : P) : R := by blast
|
||
|
|
definition lemma3 (p : P) : S := by blast
|
||
|
|
definition lemma4 (p : P) : T := by blast
|