src/HOL/Codatatype/Tools/bnf_def.ML
changeset 49016 640ce226a973
parent 48975 7f79f94a432c
child 49018 b2884253b421
equal deleted inserted replaced
49015:6b7cdb1f37d5 49016:640ce226a973
   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;