theory Scratch imports Complex_Main begin
Lemma False
sledgehammer[prover=dummy_thf_ml,overlord,max_facts = 30000,
  timeout = 1000,dont_slice,fact_filter=mash]

thf(const_class_hl_select, type, hl_select : !>[A : $tTtype]: ((A > $o) > A)).
@+   ->  hl_select @ ^
~)   ->  $not)
|)   ->  $or)
&)   ->  $and)
=>)  ->  $imp)
& @  ->  $and @
=> @ ->  $imp @
tptp4X -u machine
emacs replace:
: \n -> :
.\n% -> .%

sed -i "s/%039/'/g;s/%058/:/g" mash_state
grep "[.] %" prob_dummy_thf_ml_1  | cut -d % -f 2- | cut -d " " -f 2 | sort > names
sed -i "s/[(]/_/g;s/[)]//g" names
sed "s/\([.]% [^(]*\)[(]\([0-9]*\)[)]/\1_\2/" complexmain.p

while read i; do grep "[ .]${i}:" mash_state | cut -d : -f 1; done < names > names2

sed "s/thf[(][^,]*,\(.*\)[.]% \(.*\)$/thf(\2,\1./"
