Skip to content
Snippets Groups Projects
Commit e35486ca authored by Ike Mulder's avatar Ike Mulder
Browse files

Remove possibly costly call to auto in From/IntoTExist.

parent fe9eed71
No related branches found
No related tags found
No related merge requests found
Pipeline #62013 passed
...@@ -724,12 +724,15 @@ Global Hint Extern 0 (FromExistCareful ?L ?R) => ...@@ -724,12 +724,15 @@ Global Hint Extern 0 (FromExistCareful ?L ?R) =>
end in end in
solve : typeclass_instances. solve : typeclass_instances.
Lemma exactly_entails {PROP : bi} (P : PROP) : P P.
Proof. done. Qed.
Global Hint Extern 4 (FromTExistDirect (bi_exist ?input_fun) ?TT ?Q') => Global Hint Extern 4 (FromTExistDirect (bi_exist ?input_fun) ?TT ?Q') =>
match get_biexist_function_and_tele input_fun with match get_biexist_function_and_tele input_fun with
| (?output_fun, ?telescope) => | (?output_fun, ?telescope) =>
unify TT telescope; unify TT telescope;
unify output_fun Q'; unify output_fun Q';
by rewrite /FromTExistDirect /FromTExist refine (exactly_entails _)
end : typeclass_instances. end : typeclass_instances.
Global Hint Extern 4 (IntoTExistExact (bi_exist ?input_fun) ?TT ?Q') => Global Hint Extern 4 (IntoTExistExact (bi_exist ?input_fun) ?TT ?Q') =>
...@@ -737,7 +740,7 @@ Global Hint Extern 4 (IntoTExistExact (bi_exist ?input_fun) ?TT ?Q') => ...@@ -737,7 +740,7 @@ Global Hint Extern 4 (IntoTExistExact (bi_exist ?input_fun) ?TT ?Q') =>
| (?output_fun, ?telescope) => | (?output_fun, ?telescope) =>
unify TT telescope; unify TT telescope;
unify output_fun Q'; unify output_fun Q';
by rewrite /IntoTExistExact /IntoTExist refine (exactly_entails _)
end : typeclass_instances. end : typeclass_instances.
Global Hint Extern 4 (FindInContext ?PTC ?k ?r ?R) => Global Hint Extern 4 (FindInContext ?PTC ?k ?r ?R) =>
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment