From grahamb@cpsc.ucalgary.ca  Thu May 10 10:20:34 1990
Received: by iris.ucdavis.edu (5.57/UCD.EECS.2.0)
        id AA03689; Thu, 10 May 90 10:20:34 PDT
Received: from relay.cdnnet.ca by clover.ucdavis.edu (5.59/UCD.EECS.1.11)
        id AA08831; Thu, 10 May 90 10:23:57 PDT
Received: by relay.CDNnet.CA (4.1/1.14)
        id AA16917; Thu, 10 May 90 10:19:40 PDT
Date: 10 May 90 11:15 -0600
From: Brian Graham <grahamb@cpsc.ucalgary.ca>
To: <info-hol@clover.ucdavis.edu>
Message-Id: <211*grahamb@cpsc.ucalgary.ca>
Subject: re: dealing with choice operator

My apologies to all who tried the sources and examples in the paper I
posted.  I failed to remove the abbreviations I use, which will be
unintelligible to anyone else.  I am sending a revised version to
ucdavis with the tactic names expanded, and definitions for a couple.
I include a list of the abbreviations here for the convenience of
those who just want a quick explanation:
*******************************************************************
let in1_conv_rule = CONV_RULE o ONCE_DEPTH_CONV o CHANGED_CONV;;

let port  = PURE_ONCE_REWRITE_TAC
and prt   = PURE_REWRITE_TAC
and ort   = ONCE_REWRITE_TAC
and rt    = REWRITE_TAC
and poart = PURE_ONCE_ASM_REWRITE_TAC
and part  = PURE_ASM_REWRITE_TAC
and oart  = ONCE_ASM_REWRITE_TAC
and art   = ASM_REWRITE_TAC
;;

let rr    = REWRITE_RULE
and prr   = PURE_REWRITE_RULE
and orr   = ONCE_REWRITE_RULE
and porr  = PURE_ONCE_REWRITE_RULE
;;

% applies a rule to bottom assumption --- useful in proof
  development only, throw away from the final proof form!  %
let poke rule = POP_ASSUM \th. ASSUME_TAC (rule th);;
*******************************************************************

Again, I'm sorry I missed this.  I was sure I had corrected this
earlier, and didn't recheck it when I posted.  (By the way, I find
using such a standard set of abbreviations saves a lot of effort when
working interactively on proofs---is there any interest in
standardizing some useful ones?)

   Brian Graham                       |  grahamb@cpsc.ucalgary.ca
   Computer Science Department        |
   University of Calgary              |

