File: The_Simplification_of_the_Induction_Conclusion__lparen_Step_9_rparen_.html

package info (click to toggle)
acl2 3.1-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 36,712 kB
  • ctags: 38,396
  • sloc: lisp: 464,023; makefile: 5,470; sh: 86; csh: 47; cpp: 25; ansic: 22
file content (28 lines) | stat: -rw-r--r-- 1,107 bytes parent folder | download
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
<html>
<head><title>The_Simplification_of_the_Induction_Conclusion__lparen_Step_9_rparen_.html  --  ACL2 Version 3.1</title></head>
<body text=#000000 bgcolor="#FFFFFF">
<h2>the Simplification of the Induction Conclusion (Step 9)</h2>
<p>

<pre>
Subgoal *1/2'
(IMPLIES (AND (CONSP A)
              (EQUAL (APP (APP (CDR A) B) C)
                     (APP (CDR A) (APP B C))))
         <a href="The_Simplification_of_the_Induction_Conclusion__lparen_Step_10_rparen_.html">(</a>EQUAL (CONS (CAR A)
                      (APP (APP (CDR A) B)
                           C))
                <b>(CONS (CAR A)</B>
                      <b>(APP (CDR A) (APP B C))</B>))).
</pre>
<p>

<img src=green-line.gif><p>

Click on the link above to apply the Axiom that 
<code>(EQUAL (CONS x y) (CONS u v))</code> is equal to the conjunction of
<code>(EQUAL x u)</code> and <code>(EQUAL y v)</code>.  In this case, <code>(EQUAL x u)</code>
is trivial, <code>(EQUAL (CAR A) (CAR A))</code>.
<br><br><br><a href="acl2-doc.html"><img src="llogo.gif"></a> <a href="acl2-doc-index.html"><img src="index.gif"></a>
</body>
</html>