expandshort

Proved equivalence of Ord and Ord_alt. Proved
ordertype_eq_imp_ord_iso, le_well_ord_Memrel, le_ordertype_Memrel, lt_oadd1,
oadd_le_self, bij_0_sum, oadd_0, oadd_assoc, id_ord_iso_Memrel, ordertype_0.

Now well_ord_Memrel follows from le_well_ord_Memrel and
ordertype_Memrel follows from le_ordertype_Memrel.

Proved simpler versions of Krzysztof's theorems Ord_oadd,
ordertype_pred_subset, ordertype_pred_lt, ordertype_pred_unfold, bij_sum_0,
bij_sum_succ, ordertype_sum_Memrel, lt_oadd_disj, oadd_inject.

Deleted ordertype_subset: subsumed by ordertype_pred_unfold.

Proved ordinal multiplication theorems Ord_omult, lt_omult, omult_oadd_lt,
omult_unfold, omult_0, omult_0_left, omult_1, omult_1_left,
oadd_omult_distrib, omult_succ, omult_assoc, omult_UN, omult_Limit, lt_omult1,
omult_le_self, omult_le_mono1, omult_lt_mono2, omult_le_mono2, omult_le_mono,
omult_lt_mono, omult_le_self2, omult_inject.

#! /bin/sh
#
#expandshort - shell script to expand shorthand goal commands
#  ALSO contracts uses of resolve_tac, dresolve_tac, eresolve_tac,
#     rewrite_goals_tac on 1-element lists
#
# Usage:
#    expandshort FILE1 ... FILEn
#
#  leaves previous versions as XXX~~
#
for f in $*
do
echo Expanding shorthands in $f. \ Backup file is $f~~
mv $f $f~~; sed -e '
s/^ba \([0-9]*\);/by (assume_tac \1);/
s/^br \([^;]*\) \([0-9]*\);/by (rtac \1 \2);/
s/^brs \([^;]*\) \([0-9]*\);/by (resolve_tac \1 \2);/
s/^bd \([^;]*\) \([0-9]*\);/by (dtac \1 \2);/
s/^bds \([^;]*\) \([0-9]*\);/by (dresolve_tac \1 \2);/
s/^be \([^;]*\) \([0-9]*\);/by (etac \1 \2);/
s/^bes \([^;]*\) \([0-9]*\);/by (eresolve_tac \1 \2);/
s/^bw \([^;]*\);/by (rewtac \1);/
s/^bws \([^;]*\);/by (rewrite_goals_tac \1);/
s/dresolve_tac *\[\([a-zA-Z0-9_]*\)\] */dtac \1 /g
s/eresolve_tac *\[\([a-zA-Z0-9_]*\)\] */etac \1 /g
s/resolve_tac *\[\([a-zA-Z0-9_]*\)\] */rtac \1 /g
s/rewrite_goals_tac *\[\([a-zA-Z0-9_]*\)\]\( *\)/rewtac \1\2/g
' $f~~ > $f
done
echo Finished.