10 lines
185 B
Text
10 lines
185 B
Text
exit
|
|
import logic
|
|
open tactic (renaming id->id_tac)
|
|
|
|
infixl `;`:15 := tactic.and_then
|
|
|
|
theorem tst {A B : Prop} (H1 : A) (H2 : B) : id A
|
|
:= by (unfold id; state); assumption
|
|
|
|
check tst
|