2014-12-01 05:16:01 +00:00
|
|
|
import logic
|
2014-09-04 21:21:03 +00:00
|
|
|
open tactic
|
|
|
|
|
2015-04-28 00:46:13 +00:00
|
|
|
notation `(` h `|` r:(foldl `|` (e r, tactic.or_else r e) h) `)` := r
|
|
|
|
infixl `;`:15 := tactic.and_then
|
|
|
|
|
2014-09-04 23:36:06 +00:00
|
|
|
definition mytac := apply @and.intro; apply @eq.refl
|
2014-09-04 21:21:03 +00:00
|
|
|
|
|
|
|
check @mytac
|