abstraction over functions is no default any more.
authorchaieb
Wed May 26 19:06:09 2004 +0200 (2004-05-26)
changeset 148119144ec118703
parent 14810 4b4b97d29370
child 14812 4b2c006d0534
abstraction over functions is no default any more.
src/HOL/Integ/presburger.ML
src/HOL/Tools/Presburger/presburger.ML
     1.1 --- a/src/HOL/Integ/presburger.ML	Wed May 26 18:52:18 2004 +0200
     1.2 +++ b/src/HOL/Integ/presburger.ML	Wed May 26 19:06:09 2004 +0200
     1.3 @@ -6,7 +6,7 @@
     1.4  Tactic for solving arithmetical Goals in Presburger Arithmetic
     1.5  *)
     1.6  
     1.7 -(* This version of presburger deals with occurences of functional symbols in the subgoal and abstract over them to try to prove the more general formula. It then resolves with the subgoal. To disable this feature call the procedure with the parameter no_abs
     1.8 +(* This version of presburger deals with occurences of functional symbols in the subgoal and abstract over them to try to prove the more general formula. It then resolves with the subgoal. To enable this feature call the procedure with the parameter abs
     1.9  *)
    1.10  
    1.11  signature PRESBURGER = 
    1.12 @@ -279,11 +279,11 @@
    1.13  fun presburger_args meth =
    1.14   let val parse_flag = 
    1.15           Args.$$$ "no_quantify" >> K (apfst (K false))
    1.16 -      || Args.$$$ "no_abs" >> K (apsnd (K false));
    1.17 +      || Args.$$$ "abs" >> K (apsnd (K true));
    1.18   in
    1.19     Method.simple_args 
    1.20    (Scan.optional (Args.$$$ "(" |-- Args.list1 parse_flag --| Args.$$$ ")") [] >>
    1.21 -    curry (foldl op |>) (true, true))
    1.22 +    curry (foldl op |>) (true, false))
    1.23      (fn (q,a) => fn _ => meth q a 1)
    1.24    end;
    1.25  
    1.26 @@ -296,7 +296,7 @@
    1.27       "decision procedure for Presburger arithmetic"),
    1.28     ArithTheoryData.map (fn {splits, inj_consts, discrete, presburger} =>
    1.29       {splits = splits, inj_consts = inj_consts, discrete = discrete,
    1.30 -      presburger = Some (presburger_tac true true)})];
    1.31 +      presburger = Some (presburger_tac true false)})];
    1.32  
    1.33  end;
    1.34  
     2.1 --- a/src/HOL/Tools/Presburger/presburger.ML	Wed May 26 18:52:18 2004 +0200
     2.2 +++ b/src/HOL/Tools/Presburger/presburger.ML	Wed May 26 19:06:09 2004 +0200
     2.3 @@ -6,7 +6,7 @@
     2.4  Tactic for solving arithmetical Goals in Presburger Arithmetic
     2.5  *)
     2.6  
     2.7 -(* This version of presburger deals with occurences of functional symbols in the subgoal and abstract over them to try to prove the more general formula. It then resolves with the subgoal. To disable this feature call the procedure with the parameter no_abs
     2.8 +(* This version of presburger deals with occurences of functional symbols in the subgoal and abstract over them to try to prove the more general formula. It then resolves with the subgoal. To enable this feature call the procedure with the parameter abs
     2.9  *)
    2.10  
    2.11  signature PRESBURGER = 
    2.12 @@ -279,11 +279,11 @@
    2.13  fun presburger_args meth =
    2.14   let val parse_flag = 
    2.15           Args.$$$ "no_quantify" >> K (apfst (K false))
    2.16 -      || Args.$$$ "no_abs" >> K (apsnd (K false));
    2.17 +      || Args.$$$ "abs" >> K (apsnd (K true));
    2.18   in
    2.19     Method.simple_args 
    2.20    (Scan.optional (Args.$$$ "(" |-- Args.list1 parse_flag --| Args.$$$ ")") [] >>
    2.21 -    curry (foldl op |>) (true, true))
    2.22 +    curry (foldl op |>) (true, false))
    2.23      (fn (q,a) => fn _ => meth q a 1)
    2.24    end;
    2.25  
    2.26 @@ -296,7 +296,7 @@
    2.27       "decision procedure for Presburger arithmetic"),
    2.28     ArithTheoryData.map (fn {splits, inj_consts, discrete, presburger} =>
    2.29       {splits = splits, inj_consts = inj_consts, discrete = discrete,
    2.30 -      presburger = Some (presburger_tac true true)})];
    2.31 +      presburger = Some (presburger_tac true false)})];
    2.32  
    2.33  end;
    2.34