forked from MetaCoq/metacoq
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAll.v
21 lines (19 loc) · 1.23 KB
/
All.v
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
From MetaCoq.Common Require Import config.
From MetaCoq.Template Require Import Ast Typing.
From MetaCoq.Template Require WfAst TypingWf.
From MetaCoq.Quotation.ToTemplate.Template Require Ast Typing WfAst TypingWf.
(* without typing derivations *)
Module Raw.
(* These are probably the only quotation functions that users of this development will want to use; other files should be considered internal to the development of quotation *)
Definition quote_term : Ast.term -> Ast.term := Ast.quote_term.
Definition quote_typing {cf : checker_flags} {Σ Γ t T} : (Σ ;;; Γ |- t : T) -> Ast.term := Typing.quote_typing.
Definition quote_red {Σ Γ x y} : @red Σ Γ x y -> Ast.term := Typing.quote_red.
Definition quote_wf_local {cf : checker_flags} {Σ Γ} : wf_local Σ Γ -> Ast.term := Typing.quote_wf_local.
Definition quote_wf {cf Σ} : @wf cf Σ -> Ast.term := Typing.quote_wf.
Definition quote_wf_ext {cf Σ} : @wf_ext cf Σ -> Ast.term := Typing.quote_wf_ext.
Module WfAst.
Definition quote_wf {Σ t} : @WfAst.wf Σ t -> Ast.term := WfAst.quote_wf.
End WfAst.
(* TODO: do we want anything from TypingWf? Is there anything else missing here? *)
End Raw.
(* eventually we'll have proofs that the above definitions are well-typed *)