Module Qcert.Translation.Lang.DNNRCtotDNNRC
Require
Import
DNNRCSystem
.
Require
Import
tDNNRCSystem
.
Section
DNNRCtotDNNRC
.
Section
Top
.
Context
{
ftype
:
ForeignType.foreign_type
}.
Context
{
fr
:
foreign_runtime
}.
Context
{
bm
:
brand_model
}.
Context
{
ftyping
:
foreign_typing
}.
Definition
dnnrc_to_dnnrc_typed_top
(
tdenv
:
tdbindings
) (
q
:
dnnrc
) :
option
dnnrc_typed
:=
infer_dnnrc_base_type
tdenv
nil
q
.
End
Top
.
End
DNNRCtotDNNRC
.