diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 16:24:30 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 21:30:09 +0200 |
commit | 9e1372f77218ca6f0baf4ed7c590c91ad84b6313 (patch) | |
tree | f75c23cb31a84f6010e15a7ec612640d6cac5e0d /test-suite/success/forward.v | |
parent | 7446e3e1555c0f41373b71b92a3f01f060e8e0e0 (diff) |
Moving "assert" (internally "Cut") to the new proof engine.
It allows in particular to have "Info" on tactic "assert" and
derivatives not to give an "<unknown>".
Diffstat (limited to 'test-suite/success/forward.v')
-rw-r--r-- | test-suite/success/forward.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/forward.v b/test-suite/success/forward.v index 0ed5b524f..4e36dec15 100644 --- a/test-suite/success/forward.v +++ b/test-suite/success/forward.v @@ -16,3 +16,14 @@ eremember (S (S ?[x])). instantiate (x:=0). reflexivity. Qed. + +(* Don't know if it is good or not but the compatibility tells that + the asserted goal to prove is subject to beta-iota but not the + asserted hypothesis *) + +Goal True. +assert ((fun x => x) False). +Fail match goal with |- (?f ?a) => idtac end. (* should be beta-iota reduced *) +2:match goal with _: (?f ?a) |- _ => idtac end. (* should not be beta-iota reduced *) +Abort. + |