equal
deleted
inserted
replaced
505 Derive_Some_Facts | Derive_All_Facts | Derive_All_Facts_Note_Most | Note_All_Facts_and_Axioms; |
505 Derive_Some_Facts | Derive_All_Facts | Derive_All_Facts_Note_Most | Note_All_Facts_and_Axioms; |
506 |
506 |
507 val bnf_note_all = Attrib.setup_config_bool @{binding bnf_note_all} (K false); |
507 val bnf_note_all = Attrib.setup_config_bool @{binding bnf_note_all} (K false); |
508 |
508 |
509 fun user_policy ctxt = |
509 fun user_policy ctxt = |
510 if Config.get ctxt bnf_note_all then Note_All_Facts_and_Axioms |
510 if Config.get ctxt bnf_note_all then Note_All_Facts_and_Axioms else Derive_All_Facts_Note_Most; |
511 else Derive_All_Facts_Note_Most; |
|
512 |
511 |
513 val smart_max_inline_size = 25; (*FUDGE*) |
512 val smart_max_inline_size = 25; (*FUDGE*) |
514 |
513 |
515 val no_def = Drule.reflexive_thm; |
514 val no_def = Drule.reflexive_thm; |
516 val no_fact = refl; |
515 val no_fact = refl; |