File: FIX_TAC.doc

package info (click to toggle)
hol-light 20230128-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 45,636 kB
  • sloc: ml: 688,681; cpp: 439; makefile: 302; lisp: 286; java: 279; sh: 251; yacc: 108; perl: 78; ansic: 57; sed: 39; python: 13
file content (70 lines) | stat: -rw-r--r-- 1,779 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
\DOC FIX_TAC

\TYPE {FIX_TAC : string -> tactic}

\SYNOPSIS
Fixes universally quantified variables in goal.

\DESCRIBE

Given a string {s} indicating a sequence of variable names, {FIX_TAC s}
performs the introduction of the indicated universally quantified variables.
It is not required to specify the variables in any particular order. The
syntax for the string argument s allows the following patterns:

\begin{{itemize}}

\item a variable name {varname} (meaning introduce the variable varname)

\item a pattern {[newname/varname]} (meaning introduce {varname} and call it
   {newname})

\item a pattern {[newname]} (meaning introduce the outermost variable and
   call it {newname})

\item a final {*} (meaning introduce the remaining outermost universal
   quantified variables)

\end{{itemize}}

\FAILURE
Fails if the string specifying the variables is ill-formed or if some of the
indicated variables are not present as outer universal quantifiers in the goal.

\EXAMPLE
Here we fix just the variable {a}:
{
  # g `!x a. a + x = x + a`;;
  # e (FIX_TAC "a");;
  val it : goalstack = 1 subgoal (1 total)

  `!x. a + x = x + a`
}
\noindent while here we rename one of the variables and fix all the others:
{
  # g `!a b x. a + b + x = (a + b) + x`;;
  # e (FIX_TAC "[d/x] *");;
  val it : goalstack = 1 subgoal (1 total)

  `a + b + d = (a + b) + d`
}

Here we fix an automatically generated variable and choose a meaningful name
for it
{
  # g `(@x. x = 0) + 0 = 0`;;
  # e SELECT_ELIM_TAC;;
  val it : goalstack = 1 subgoal (1 total)

  `!_75605. (!x. x = 0 ==> _75605 = 0) ==> _75605 + 0 = 0`

  # e (FIX_TAC "[y]");;
  val it : goalstack = 1 subgoal (1 total)

  `(!x. x = 0 ==> y = 0) ==> y + 0 = 0`
}

\SEEALSO
GEN, GEN_TAC, INTRO_TAC, STRIP_TAC, X_GEN_TAC.

\ENDDOC