backup : unit -> proof
- g `(HD[1;2;3] = 1) /\ (TL[1;2;3] = [2;3])`;
> val it =
Proof manager status: 1 proof.
1. Incomplete:
Initial goal:
(HD [1; 2; 3] = 1) /\ (TL [1; 2; 3] = [2; 3])
: proofs
- e CONJ_TAC;
OK..
2 subgoals:
> val it =
TL [1; 2; 3] = [2; 3]
HD [1; 2; 3] = 1
: proof
- backup();
> val it =
Initial goal:
(HD [1; 2; 3] = 1) /\ (TL [1; 2; 3] = [2; 3])
: proof
- e (REWRITE_TAC[listTheory.HD, listTheory.TL]);
OK..
> val it =
Initial goal proved.
|- (HD [1; 2; 3] = 1) /\ (TL [1; 2; 3] = [2; 3]) : proof