else [])@
[GA.Executable(floc,GA.NTactic(floc, [
if (*ueq_case*) true then
else [])@
[GA.Executable(floc,GA.NTactic(floc, [
if (*ueq_case*) true then
else [])@
[GA.Executable(floc,GA.Tactic(floc, Some (
if true (*ueq_case*) then
else [])@
[GA.Executable(floc,GA.Tactic(floc, Some (
if true (*ueq_case*) then
- GA.AutoBatch (floc,([],["paramodulation","";
+ GA.AutoBatch (floc,(None,["paramodulation","";
(mk_ident universe,Some (PT.Sort (`Type (CicUniv.fresh ())))),
convert_formula fv false context f)
in
(mk_ident universe,Some (PT.Sort (`Type (CicUniv.fresh ())))),
convert_formula fv false context f)
in
- let o = PT.Theorem (`Theorem,name,f,None) in
+ let o = PT.Theorem (`Theorem,name,f,None,`Regular) in
(statements @
[ GA.Executable(floc,GA.Command(floc,
(*if ng then GA.NObj (floc,o) else*) GA.Obj(floc,o))); ] @
(statements @
[ GA.Executable(floc,GA.Command(floc,
(*if ng then GA.NObj (floc,o) else*) GA.Obj(floc,o))); ] @