l3-ENSL/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Parse exact term / proof

Browse Source
This commit is contained in:
augustin64 2024-04-30 11:58:29 +02:00
parent 20d4ee5531
commit 486a788757
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
main.ml
View File

@ -58,8 +58,10 @@ let rec interactive ((g, gs) : proof) : proof =
Goal ty -> fresh_proof ty |> interactive Goal ty -> fresh_proof ty |> interactive
| Tact t -> | Tact t ->
begin match t with begin match t with
Exact e -> Exact_term e ->
tact_exact (g, gs) e |> interactive tact_exact_term (g, gs) e |> interactive
| Exact_proof s ->
tact_exact_proof (g, gs) s |> interactive
| Assumption -> | Assumption ->
tact_assumption (g, gs) |> interactive tact_assumption (g, gs) |> interactive
| Intro -> | Intro ->

3
parser.mly
View File

@ -33,7 +33,8 @@ tactic:
command: command:
| GOAL t=ty { Goal t } | GOAL t=ty { Goal t }
| EXACT e=expression { Tact (Exact e) } | EXACT e=expression { Tact (Exact_term e) }
| EXACT s=TYID { Tact (Exact_proof s) }
| ASSUMPTION { Tact (Assumption) } | ASSUMPTION { Tact (Assumption) }
| INTRO { Tact (Intro) } | INTRO { Tact (Intro) }
| CUT t=ty { Tact (Cut t) } | CUT t=ty { Tact (Cut t) }