Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Compile more of ink_env.v 13 #222

Draft
wants to merge 10 commits into
base: main
Choose a base branch
from
Draft

Compile more of ink_env.v 13 #222

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
bac8d33
trying to implement extraction of associated types' bounds' instances
bartlomiejkrolikowski Sep 25, 2023
335b5af
changes to collect supertraits
bartlomiejkrolikowski Sep 26, 2023
b864396
add a separate file for generic algorithms
bartlomiejkrolikowski Sep 26, 2023
03b0b87
more functions in algs.rs
bartlomiejkrolikowski Sep 27, 2023
8ca788a
fixed an error in algs.rs
bartlomiejkrolikowski Sep 27, 2023
0fd0be2
add a function in in algs.rs
bartlomiejkrolikowski Sep 27, 2023
f242695
replaced HashMap with TopologicalSort in the type of supertraits_map
bartlomiejkrolikowski Sep 27, 2023
28cbe0d
implement printing traits, topologically sorted
bartlomiejkrolikowski Sep 27, 2023
b02768d
saving the state of work
bartlomiejkrolikowski Sep 27, 2023
4072588
saving the state of work: used 'all:' in tactics
bartlomiejkrolikowski Sep 28, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions Cargo.lock
View file
Open in desktop

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

136 changes: 120 additions & 16 deletions CoqOfRust/ink/ink.v
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -312,7 +312,7 @@ Module reflect.
Module ContractMessageDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(parity_scale_codec.codec.Decode.Trait Type_)
Expand All @@ -324,6 +324,9 @@ Module reflect.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.

End The_Bounds_Of_Type_.
End ContractMessageDecoder.

Module DecodeDispatch.
Expand All @@ -350,7 +353,7 @@ Module reflect.
Module ContractConstructorDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(ink.reflect.dispatch.DecodeDispatch.Trait Type_)
Expand All @@ -362,6 +365,26 @@ Module reflect.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.
Module parity_scale_codec_codec_Decode.
Global Instance I `(Trait)
: parity_scale_codec.codec.Decode.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End parity_scale_codec_codec_Decode.
Module ink_reflect_dispatch_DecodeDispatch.
Global Instance I `(Trait)
: ink.reflect.dispatch.DecodeDispatch.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End ink_reflect_dispatch_DecodeDispatch.
End The_Bounds_Of_Type_.
End ContractConstructorDecoder.
End dispatch.

Expand Down Expand Up @@ -663,7 +686,7 @@ Module codegen.
Module TraitCallForwarder.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand All @@ -675,12 +698,15 @@ Module codegen.
: Notation.DoubleColonType Self "Forwarder" := {
Notation.double_colon_type := Forwarder;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarder.

(* Module TraitCallForwarderFor.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand Down Expand Up @@ -728,6 +754,9 @@ Module codegen.
: Notation.Dot "build_mut" := {
Notation.dot := build_mut;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarderFor. *)
End call_builder.

Expand Down Expand Up @@ -1303,7 +1332,7 @@ Module trait_def.
Module TraitCallForwarder.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand All @@ -1315,12 +1344,15 @@ Module trait_def.
: Notation.DoubleColonType Self "Forwarder" := {
Notation.double_colon_type := Forwarder;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarder.

(* Module TraitCallForwarderFor.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand Down Expand Up @@ -1366,6 +1398,9 @@ Module trait_def.
: Notation.Dot "build_mut" := {
Notation.dot := build_mut;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarderFor. *)
End call_builder.

Expand Down Expand Up @@ -1409,7 +1444,7 @@ Module call_builder.
Module TraitCallForwarder.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand All @@ -1421,12 +1456,15 @@ Module call_builder.
: Notation.DoubleColonType Self "Forwarder" := {
Notation.double_colon_type := Forwarder;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarder.

(* Module TraitCallForwarderFor.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait
Expand Down Expand Up @@ -1472,6 +1510,9 @@ Module call_builder.
: Notation.Dot "build_mut" := {
Notation.dot := build_mut;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarderFor. *)
End call_builder.

Expand Down Expand Up @@ -1501,7 +1542,7 @@ End TraitCallBuilder.
Module TraitCallForwarder.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait Forwarder),
Expand All @@ -1512,12 +1553,15 @@ Module TraitCallForwarder.
: Notation.DoubleColonType Self "Forwarder" := {
Notation.double_colon_type := Forwarder;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarder.

(* Module TraitCallForwarderFor.
Class Trait (Self : Set) : Type := {
Forwarder : Set;
_
__the_bounds_of_Forwarder
:
Sigma
`(ink.codegen.trait_def.call_builder.TraitCallBuilder.Trait Forwarder),
Expand Down Expand Up @@ -1562,6 +1606,9 @@ End TraitCallForwarder.
: Notation.Dot "build_mut" := {
Notation.dot := build_mut;
}.
Module The_Bounds_Of_Forwarder.

End The_Bounds_Of_Forwarder.
End TraitCallForwarderFor. *)

Module trait_message.
Expand Down Expand Up @@ -1868,7 +1915,7 @@ Module Wrap_dispatch_1.
Module ContractMessageDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(parity_scale_codec.codec.Decode.Trait Type_)
Expand All @@ -1880,6 +1927,9 @@ Module Wrap_dispatch_1.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.

End The_Bounds_Of_Type_.
End ContractMessageDecoder.

Module DecodeDispatch.
Expand All @@ -1906,7 +1956,7 @@ Module Wrap_dispatch_1.
Module ContractConstructorDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(ink.reflect.dispatch.DecodeDispatch.Trait Type_)
Expand All @@ -1918,6 +1968,26 @@ Module Wrap_dispatch_1.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.
Module parity_scale_codec_codec_Decode.
Global Instance I `(Trait)
: parity_scale_codec.codec.Decode.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End parity_scale_codec_codec_Decode.
Module ink_reflect_dispatch_DecodeDispatch.
Global Instance I `(Trait)
: ink.reflect.dispatch.DecodeDispatch.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End ink_reflect_dispatch_DecodeDispatch.
End The_Bounds_Of_Type_.
End ContractConstructorDecoder.
End dispatch.
End Wrap_dispatch_1.
Expand Down Expand Up @@ -2084,7 +2154,7 @@ Definition ConstructorOutputValue := @ConstructorOutputValue.t.
Module ContractMessageDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(parity_scale_codec.codec.Decode.Trait Type_)
Expand All @@ -2096,12 +2166,15 @@ Module ContractMessageDecoder.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.

End The_Bounds_Of_Type_.
End ContractMessageDecoder.

Module ContractConstructorDecoder.
Class Trait (Self : Set) : Type := {
Type_ : Set;
_
__the_bounds_of_Type_
:
Sigma
`(ink.reflect.dispatch.DecodeDispatch.Trait Type_)
Expand All @@ -2113,6 +2186,25 @@ Module ContractConstructorDecoder.
: Notation.DoubleColonType Self "Type_" := {
Notation.double_colon_type := Type_;
}.
Module The_Bounds_Of_Type_.
Module parity_scale_codec_codec_Decode.
Global Instance I `(Trait) : parity_scale_codec.codec.Decode.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End parity_scale_codec_codec_Decode.
Module ink_reflect_dispatch_DecodeDispatch.
Global Instance I `(Trait)
: ink.reflect.dispatch.DecodeDispatch.Trait Type_.
all: repeat
(destruct __the_bounds_of_Type_ as [x __the_bounds_of_Type_];
try assumption;
try destruct x).
Defined.
End ink_reflect_dispatch_DecodeDispatch.
End The_Bounds_Of_Type_.
End ContractConstructorDecoder.

Module ExecuteDispatchable.
Expand Down Expand Up @@ -2395,13 +2487,19 @@ Module chain_extension.
Module ChainExtension.
Class Trait (Self : Set) : Type := {
ErrorCode : Set;
_ : Sigma `(ink_env.chain_extension.FromStatusCode.Trait ErrorCode), unit;
__the_bounds_of_ErrorCode
:
Sigma `(ink_env.chain_extension.FromStatusCode.Trait ErrorCode),
unit;
}.

Global Instance Method_ErrorCode `(Trait)
: Notation.DoubleColonType Self "ErrorCode" := {
Notation.double_colon_type := ErrorCode;
}.
Module The_Bounds_Of_ErrorCode.

End The_Bounds_Of_ErrorCode.
End ChainExtension.

Module private.
Expand Down Expand Up @@ -2478,13 +2576,19 @@ End ChainExtensionInstance.
Module ChainExtension.
Class Trait (Self : Set) : Type := {
ErrorCode : Set;
_ : Sigma `(ink_env.chain_extension.FromStatusCode.Trait ErrorCode), unit;
__the_bounds_of_ErrorCode
:
Sigma `(ink_env.chain_extension.FromStatusCode.Trait ErrorCode),
unit;
}.

Global Instance Method_ErrorCode `(Trait)
: Notation.DoubleColonType Self "ErrorCode" := {
Notation.double_colon_type := ErrorCode;
}.
Module The_Bounds_Of_ErrorCode.

End The_Bounds_Of_ErrorCode.
End ChainExtension.

(* Module IsResultType.
Expand Down
Loading