8 lines
378 B
Text
8 lines
378 B
Text
|
rewrite_set S
|
||
|
|
variable bracket : Type → Bool
|
||
|
|
axiom bracket_eq (a : Bool) : bracket a = a
|
||
|
|
add_rewrite bracket_eq : S
|
||
|
|
add_rewrite and_truer and_comm not_true not_neq not_and exists_or_distribute exists_and_distributel : S
|
||
|
|
add_rewrite exists_rem eq_id forall_rem : S
|
||
|
|
add_rewrite Nat::add_zeror Nat::add_comm Nat::add_assoc Nat::mul_comm not_true not_false : S
|
||
|
|
print rewrite_set S
|